vb输入数据库数据

1. vb写入数据库

哦简单 你在更新完成的代码后边 加上 insertrow 插入新行(vb代码我记不清楚 但是就是这个意思)
如果你想保留上次的数据在文本框里 你就事先把 内容保存到变量里 等 插入新行后 在赋值给文本框

2. VB 向数据库 写入数据

Public cn As ADODB.Connection
Public rs As ADODB.Recordset
Public cc As String
Sub aa()
Set cn = New ADODB.Connection
Set rs = New ADODB.Recordset
cc = "Provider=sqlOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=library" ‘这里要改成连接的数据库。
cn.Open cc
End Sub
以上是模块代码。

Private Sub Command1_Click()
If Text1.Text = "" Then
MsgBox "请输入商品ID！"
Text1.SetFocus
Exit Sub
End If
If Text2.Text = "" Then
MsgBox "请输入商品名称！"
Text2.SetFocus
Exit Sub
End If
If Text3.Text = "" Then
MsgBox "请输入商品价格！"
Text3.SetFocus
Exit Sub
End If
sql = "select * from goods where goodid='" & Text1.Text & "'"
Set rs = New ADODB.Recordset
rs.Open sql, cn, 1, 3
If rs.EOF Then
rs.AddNew
rs.Fields(0) = Text1.Text
rs.Fields(1) = Text2.Text
rs.Fields(2) = Text3.Text
rs.Update
MsgBox "商品信息添加成功！"
Text1.Text = ""
Text2.Text = ""
Text3.Text = ""
Text1.SetFocus
Else
MsgBox "此ID已存在，请输入新ID！"
Text1.Text = ""
Text1.SetFocus
End If
rs.Close
Set rs = Nothing
End Sub

Private Sub Form_Load()
Call aa
End Sub
以上是窗体代码。

你好好看一下，这是一个正确的源代码。

3. vb中如何输入数据

1、vb6中可以使用以下方式输入数据：
a)使用inputbox()函数输入数据；
b)使用Textbox控件（文本框）输入数据；
c)使用文件输入数据；
d)使用数据库输入数据等。
2、详解inputbox()函数输入数据，示例如下：
InputBox 函数：在一对话框来中显示提示，等待用户输入正文或按下按钮，并返回包含文本框内容的 String。
语法：
InputBox(prompt[, title] [, default] [, xpos] [, ypos] [, helpfile, context])
示例：
Dim Message, Title, Default, MyValue
Message = "Enter a value between 1 and 3" ' 设置提示信息。
Title = "InputBox Demo" ' 设置标题。
Default = "1" ' 设置缺省值。
' 显示信息、标题及缺省值。
MyValue = InputBox(Message, Title, Default)

' 使用帮助文件及上下文。“帮助”按钮便会自动出现。
MyValue = InputBox(Message, Title, , , , "DEMO.HLP", 10)

' 在 100, 100 的位置显示对话框。
MyValue = InputBox(Message, Title, Default, 100, 100)
4、其它输入方法可以网上查找或看MSDN。

4. 怎样从vb中向数据库里添加数据

Dim conn As New ADODB.Connection
Dim rs As New ADODB.Recordset
conn.ConnectionString="" '数据存放路径
conn.Open

Dim sql As String
sql="update 表名 set name='"& Text1.text &"',sex='"& Text2.text &"',phone='"& Text3.text &"'"
rs.open sql,conn,3,3
rs.Close
conn.Close
Text1是姓名文本框，Text2是性别文本框，Text3是电话号码文本框。要注意我写的电话号码是字符型的。希望能帮到你。最好不要插入，更新比较好。

5. vb怎么连接数据库写入数据

'在使用前需要先安装MySql的驱动，进行正确配置
'注意：必须给出正确的服务器名、数据库名、表名、数据库连接的用户名、密码
Option Explicit
Dim Cnn As ADODB.Connection '定义ADO连接对象
Dim Records As ADODB.Recordset '定义ADO记录集对象
'连接到数据库
Function CnnOpen(ByVal ServerName As String, ByVal DBName As String, ByVal TblName As String, ByVal User As String, ByVal PWD As String) '服务器名或IP、数据库名、登录用户、密码
Dim CnnStr As String '定义连接字符串
Set Cnn = CreateObject("ADODB.Connection") '创建ADO连接对象
Cnn.CommandTimeout = 15 '设置超时时间
CnnStr = "DRIVER={MySql ODBC 5.1 Driver};SERVER=" & ServerName & ";Database=" & DBName & ";Uid=" & User & ";Pwd=" & PWD & ";Stmt=set names GBK" '
Cnn.ConnectionString = CnnStr
Cnn.Open
End Function
'关闭连接
Function CnnClose()
If Cnn.State = 1 Then
Cnn.Close
End If
End Function
'把Excel写入MySql中的数据库
Function InsertToMySql(ByVal SheetName As String, ByVal TblName As String)
Dim SqlStr As String
Dim i, j As Integer
Dim Columns, Rows As Integer
Columns = VBAProject.func_public.GetTotalColumns(SheetName)
Rows = VBAProject.func_public.GetTotalRows(SheetName)
Set Records = CreateObject("ADODB.recordset")
'取得结果集并插入数据到数据库
Set Records = CreateObject("ADODB.Recordset")
'以下语句提供了插入思路，我只是把单条记录的插入方式改为循环，以把所有的记录添加到表中
'rs.Open "insert into newtable values('" & ActiveSheet.Cells(i, 1).Value & "'," & "'" & ActiveSheet.Cells(i, 2).Value & "')", cnn, 0
For i = 2 To Rows
SqlStr = "INSERT INTO " & TblName & " values('" & Sheets(SheetName).Cells(i, 1).Value & "'" '注意：" values('"，字母“v”之前是有空格的！！！
For j = 2 To Columns
SqlStr = SqlStr & ",'" & Sheets(SheetName).Cells(i, j).Value & "'"
Next
SqlStr = SqlStr & ")"
Set Records = Cnn.Execute(SqlStr) 'rs.Open SqlStr, cnn, 0 不能用这条语句实现！！！
Next
MsgBox "Insert!", vbOKOnly, "Excel To MySql"
End Function
'清除对象
Function ClearObj()
Set Cnn = Nothing
Set Records = Nothing
End Function

6. VB 向数据库添加数据

第一个问题，存储数据：
使用sqlcommand（如果是sql的）：
using
cmd
as
new
sqlcommand()

cmd.connection
=
new
sqlconnection("server=.;database=数据库名;integrated
security=sspi")

cmd.connection.open()

cmd.commandtext=string.format("insert
into
表名字
values('{0}','{1}'",您的第一个字符串变量，第二个字符串变量【如果是数值类型的，不要在索引前加单引号了】)

cmd.nonexecutequery();
'获取数据
sqldataadapter
adapter
=
new
sqldataadapter(cmd);
cmd.commandtext="select
*
from
表"
datatable
dt
=
new
datatable()
adapter.fill(dt)
datagridview.datasource
=
dt
end
using

7. 怎么用vb写语句把数据库的值写到报表里

在SQL SERVER里往Excel插入数据:

insert into OpenDataSource( 'Microsoft.Jet.OLEDB.4.0',
'Data Source="c:\Temp.xls";User ID=Admin;Password=;Extended properties=Excel 5.0')...table1 (A1,A2,A3) values (1,2,3)

T-SQL代码：
INSERT INTO
OPENDATASOURCE('Microsoft.JET.OLEDB.4.0',
'Extended Properties=Excel 8.0;Data source=C:\training\inventur.xls')...[Filiale1$]
(bestand, prokt) VALUES (20, 'Test')

8. VB向数据库添加数据(有代码)

写一个insert语句
dim sSQL as string

sSQL="insert into tablename (field1,field2) value (value1,value2)"

conn.exceute sSQL

9. vb 中向数据库插入数据

可以用ADO空间+文本框捆绑数据设计

也可以用普通文本框设计界面，让用户录入信息；然后用代码实现写入：
1.建立ADODB的连接对象
2.连接数据库
3.打开连接对象
4.通过连接对象执行SQL语句（用Insert写入数据）
5.关闭对象。
希望对你能有所帮助。