Question

VB连接SQL数据库,添加简单数据.

SQL数据库：

Server-Bus\bus\票价(表)

格式:

线路编号 站码 车型 票价 其他费用
1 bg 16 1.5 <Null>
1 hj 16 2.5 <Null>
1 xj 16 3.5 <Null>

Answer 1

要先与数据库建立连接,才能执行sql语句,
要是SQL语句不能对数据库中的数据直接修改或添加,是没有办法对数据库进行更新,必须是正确的sql语句才行,你sql都有错误还想更新数据库.

Adodc2.RecordSource = "select * from 表 where 用户名 like '" & Text1.Text & "'"
Adodc2.Refresh
If Not Adodc2.Recordset.EOF Then
MsgBox "你所填写的用户已经存在,请重新输入!", vbOKOnly + vbExclamation, "警告"
Text1.SetFocus
Text1.Text = ""
Text2.Text = ""
Text3.Text = ""
Text4.Text = ""
Text5.Text = ""
Else
'若该用户名还未在表中出现，则增加该用户信息的语句是：

Adodc2.Recordset.AddNew
Adodc2.Recordset.Fields("用户名") = Trim(Text1.Text)
Adodc2.Recordset.Fields("密码") = Trim(Text2.Text)
Adodc2.Recordset.Fields(2) = Trim(Text5.Text)
Adodc2.Recordset.Fields(3) = Trim(Text4.Text)
Adodc2.Recordset.Update

MsgBox " 用户注册成功!", vbOKOnly + vbExclamation, "恭喜"
Form1.Show 1 ‘增加新用户名之后显示登录窗口登录
endif

Answer 2

Dim MyConStr As String '连数据库字符串
Dim sqlstr As String
Dim conn As New ADODB.Connection '连接对象
MyConStr = "DSN=ODBC名称;UID=sa;PWD=;" '语句1
Dim rs As New ADODB.Recordset '创建数据集对象

conn2.Open MyConStr '建立数据库连接
sqlstr = "insert 票价(线路编号,站码,车型,票价,其他费用) values('" & combo1.text & "','" & combo2.text & "','" & combo3.text & "','" & combo4.text & "','" & combo5.text & "')"
conn2.Execute (sqlstr)

Set rs = Nothing
Set conn2 = Nothing