读数据库的相关问题

Question

如何把从数据库中某个表的单个字段取出的多个值赋给多个给变量？studentno  studentname  sex
0101          王一      女
0102          赵二      男
0103          张三      男
0104          李四      男程序读取studentno字段，这样就读出了四个值，我该如何将这四个值赋给所需变量？也就是说该如何取出这四个值？请高手指教

Answer 1

dim str(1 to 20) as string 
dim dbcommand as string
dim dbconnection as new ADODB.Connection
dim dbres as new ADODB.Recordset
dbconnection.ConnectionString = "Data Source=" + MYDSN + ";UID=" + MYDB_USERNAME + ";PWD=" + MYDB_PASSWORD + ";"
dbconnection.Open ’连接数据库
dbcommand =" select studentno from table_test"  'table_test 是表名
Set dbres = dbconnection.Execute(dbcommand)  ‘执行语句
dim i as integer
i=1
dbres.MoveFirst 
do while (i<=20 and not dbres.eof)
str(i)=dbres!studentno
i=i+1
dbres.MoveNext
loop
dbconnection.close '断开与数据库的连接

Answer 2

用recordset 和command就可以了
给你一段代码：Dim mycommand0 As New ADODB.command
    Dim RS0 As New ADODB.Recordset
    mycommand0.ActiveConnection = m_cnnDB
    sql = "select id from syscolumns where syscolumns.name =  '状况ID' "
    mycommand0.CommandText = sql
    mycommand0.CommandType = adCmdText
    Set RS0 = mycommand0.Execute()
    Text4.Text = RS0.Fields(0).value
    
    Dim mycommand1 As New ADODB.command
    Dim RS1 As New ADODB.Recordset
    mycommand1.ActiveConnection = m_cnnDB
    sql = "select id from syscolumns where syscolumns.name =  '状况ID' and syscolumns.id <> 786101841"
    mycommand1.CommandText = sql
    mycommand1.CommandType = adCmdText
    Set RS1 = mycommand1.Execute()
    Text3.Text = RS1.Fields(0).value

Answer 3

dbcommand =" select studentno from table_test"  'table_test 是表名
Set dbres = dbconnection.Execute(dbcommand)  ‘执行语句
dim i as integer
i=1
dbres.MoveFirst 
do while (i<=20 and not dbres.eof)
str(i)=dbres!studentno
i=i+1
dbres.MoveNext
loop