Question

最近用vb和sql数据库做个小程序，遇到点问题请您帮忙解决

我想做个乐器管理系统，想实现这样的功能：输入借用人、乐器编号、乐器名称 使之能添加到数据库的表里（即添加数据）。应该怎么做？还有，vb成功连接数据库有什么体现。我用的是dim aa as adodb.recordset和 dim txtsql as string

Answer 1

就是这样的，你按照这样做就行了
添加到表的语句是insert into music values（‘1’，‘2’，‘3’）
vb连接sql数据库的部分参看如下
在VB-工程-引用里加载ADO控件，然后大致语句
Dim Conn As New ADODB.Connection
Dim Rs As New ADODB.Recordset
Dim ConnStr As String

ConnStr = "Provider=SQLOLEDB.1;Password=“”;Persist Security Info=True;User ID=SA;Initial Catalog=数据库;Data Source=“”"
Conn.Open ConnStr
If Conn.State = 1 Then
Rs.Open "select * from table", Conn, 1, 3
If Rs.RecordCount > 0 Then Else
MsgBox "[Ini] table no records", vbCritical, "Info"
Exit Sub
End If
Else
MsgBox ""
Exit Sub
End If

Answer 2

我只能帮你说些大概的，其他细节全靠你自己了
添加到表的语句是insert into........
vb连接sql数据库的部分参看如下
在VB-工程-引用里加载ADO控件，然后大致语句
Dim Conn As New ADODB.Connection
Dim Rs As New ADODB.Recordset
Dim ConnStr As String

ConnStr = "Provider=SQLOLEDB.1;Password=“”;Persist Security Info=True;User ID=SA;Initial Catalog=数据库;Data Source=“”"
Conn.Open ConnStr
If Conn.State = 1 Then
Rs.Open "select * from table", Conn, 1, 3
If Rs.RecordCount > 0 Then Else
MsgBox "[Ini] table no records", vbCritical, "Info"
Exit Sub
End If
Else
MsgBox ""
Exit Sub
End If