Private Sub Form_Load() Dim conn As New ADODB.Connection Dim cmd As New ADODB.Command Dim rs As New ADODB.Recordset conn.Open "DSN=test;uid=;pwd=;database=test" Set cmd.ActiveConnection = conn cmd.CommandText = "SELECT db_bm,db_name,db_s1,db_s2,db_s3 from db_ta where db_year='1999'" rs.Open cmd, , adOpenStatic, adLockBatchOptimistic MsgBox rs!db_name End Sub 程序说明: ODBC中数据库名是test,实际数据库名是test.mdb adodc1.commandtype=1 字段分别为:db_bm,db_name,db_s1,db_s2,db_s3,db_year 表名:db_ta 因为现在163实在太慢。只好在这里回答。
谁有使用adodc的源码,请Email我一份。
[email protected]
Dim conn As New ADODB.Connection
Dim cmd As New ADODB.Command
Dim rs As New ADODB.Recordset
conn.Open "DSN=test;uid=;pwd=;database=test"
Set cmd.ActiveConnection = conn
cmd.CommandText = "SELECT db_bm,db_name,db_s1,db_s2,db_s3 from db_ta where db_year='1999'" rs.Open cmd, , adOpenStatic, adLockBatchOptimistic MsgBox rs!db_name
End Sub
程序说明:
ODBC中数据库名是test,实际数据库名是test.mdb
adodc1.commandtype=1
字段分别为:db_bm,db_name,db_s1,db_s2,db_s3,db_year
表名:db_ta
因为现在163实在太慢。只好在这里回答。
CommandType=2 VB会认为你的整个SQL语句是一个表名。
表格中。
ltp3你为什么不早点看看我的问题呢。(commandtpye=1好象功能更强些)