利用VB 修改数据库中的内容，程序遍好后，执行语句，无错误提示，但数据库中内容未修改！

来源：百度知道编辑：UC知道时间：2024/05/15 14:41:29

Public conn As New ADODB.Connection 'OK
Public xs As New ADODB.Recordset
Public rs As New ADODB.Recordset
Public Sub OpenDB()
DbPathName = App.Path & "\DATABASE\zwb.mdb"
If conn.State <> adStateOpen Then

With conn
.ConnectionString = "provider=microsoft.jet.oledb.4.0;data source=" & DbPathName & " ;jet oledb:database "
.Mode = adModeReadWrite

.Open
End With
End If

End Sub

Private Sub Form_Load()

OpenDB
rs.ActiveConnection = conn 'rs 这段用于其他程序，调试过没问题

rs.ActiveConnection = conn
rs.Source = "SELECT * FROM t"
rs.Open

If Not rs.BOF Then rs.MoveFirst
Comb1.Clear
n = 0
Do Until n = 10
Comb1.AddItem rs("w")
rs.MoveNext
n

我认为使用晚期绑定比较好

public conn as adodb.connection
public xs as adodb.recordset
public rs as adodb.recordset

在变量使用前实例化

set conn=new adodb.connection(connstr)
conn.open

set rs=new adodb.recordset
rs.open sql,conn,3,3

使用晚期绑定可能会解决问题,之后变量会一直在你声明的作用范围内生效

建议调试

如何在vb中利用Access数据库中的数据做个散点图? VB数据库修改 VB修改数据库记录 VB-怎么让数据库中的内容在listview中显示在VB中如何导出数据库中的内容在VB中,怎么修改数据库中的记录??? 如何用vb修改access数据库中的资料 ASP 修改数据库内容修改access数据库内容 vb中的数据库操作