Question

VB6.0中访问数据库出现错误80004005，我想添加新的记录，创建表时，没有给字段赋值，怎么解决？





Answer 1

数据库连接代码如下
Public cn As New ADODB.Connection '声明一个全局型的数据库连接对象
Public conmdb As String '声明个全局型的字符串变量用来记录连接数据库的语句
Public rs As New ADODB.Recordset '声明个记录集对象
Public Sub conn() '定义一个全局型的自定函数
If cn.State = adStateClosed Then
conmdb = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source='" & App.Path & "\Racing.mdb';Persist Security Info=False" '连接到你的数据库文件
cn.ConnectionTimeout = 1000
cn.Open conmdb '打开数据库
End If
End Sub