ODBC里设好数据库后,在VB里编以下代码:
Const strDSN = "Data Source=定货"Private Sub Command1_Click()
Dim SQL As String
Dim Conn As New ADODB.Connection
Dim rs As New ADODB.Connection
SQL = "insert 仓库(仓库号,城市,面积) values('WH5','杭州','520')"
Conn.Open strDSN
rs.CursorLocation = adUseClient
rs.LockType = adLockOptimistic
rs.ActiveConnection = Conn
rs.Open SQL
'Conn.Execute SQL
Conn.Close
End Sub
运行时说用户定义类型未定义,可我语法都对的呀,按照书上的语法编的
请高手指点究竟是什么原因
Const strDSN = "Data Source=定货"Private Sub Command1_Click()
Dim SQL As String
Dim Conn As New ADODB.Connection
Dim rs As New ADODB.Connection
SQL = "insert 仓库(仓库号,城市,面积) values('WH5','杭州','520')"
Conn.Open strDSN
rs.CursorLocation = adUseClient
rs.LockType = adLockOptimistic
rs.ActiveConnection = Conn
rs.Open SQL
'Conn.Execute SQL
Conn.Close
End Sub
运行时说用户定义类型未定义,可我语法都对的呀,按照书上的语法编的
请高手指点究竟是什么原因
解决方案 »
免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货