vb+sql 想把某个数据放入文本框中

显示全部楼层 · 2011-4-11 18:45:29

想要把sql里面的一个数据放入文本框中出现“EOF或者BOF有一个为真...”
代码如下
Set gconn = New ADODB.Connection

Dim strConn As String

gconn.ConnectionString = "Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=PaperMakingSysterm;Data Source=127.0.0.1"

gconn.Open Connection
Dim recFillblank As ADODB.Recordset

Dim StrA As String, Str As String

Set recFillblank = New ADODB.Recordset

Set recFillblank.ActiveConnection = gconn
Str = "select * from tabFillblank where Rankofquestion=" & szFillblank(i)

recFillblank.Open (Str), gconn, adOpenKeyset, adLockOptimistic

StrA = recFillblank.Fields("Contextofquestion")

txtCheck(1).Text = StrA

千问 · 2011-4-11 18:45:29

连上数据库select出数据设置文本框的text相关的属性为该数据即可只要这几个步骤没有出错就没有问题

千问 · 2011-4-11 18:45:29

前面加个判断了 if not eof and not bof thentxtCheck(1).Text = StrA