vb 能不能写个语句把SQL里的数据输出到对应的text.text

Question

我现在写的是sql = "insert into T_zhuanxian (zxnumber,zxlb,khming,khdzhi,lxr,lxtel,yhsbzd,bfbj,csphb,mdf,jjx,jxwz,pxwz,fdwz,fdnum,yhhz,beizhu) values ('" & Text1.Text & "','" & Combo1.Text & "','" & Text2.Text & "','" & Text3.Text & "','" & Text4.Text & "','" & Text5.Text & "','" & Text6.Text & "','" & Text9.Text & "','" & Text7.Text & "','" & Text8.Text & "','" & Combo2.Text & "','" & Text10.Text & "','" & Text11.Text & "','" & Text12.Text & "','" & Text13.Text & "','" & Text14.Text & "','" & Text15.Text & "')"这种方式输入到数据库里的,我现在还想写通过查找,之后能把这数据再输出回来到窗体里.
还有个问题,datagrid输出数据到窗体,这个数据能不能在这里继续修改.就是说datagrid有没有数据修改功能.不好意思,初学者.表达不清.谢谢~ 把我所有的分都悬赏了.

Answer 1

建立一个模块
将工程的启动设置为 SUB MAIN
在模块里写下面代码
Public db As Database
Public rs As Recordset
Sub main()
set db=db.opendatabase("数据库路径"<建议用相对路径--就是把数据库文件和工程文件放在同一目录下--相对路径就是APP.PATH+"数据库名带后缀">)
第一启动窗体<比如：form1>.show
end sub
以后在其他窗体中如果要调用数据库只用在窗体中写代码
set rs=openrecordset(<可以是数据库的表--如"student",也可以是查询语句--如"select* form student">)
这时数据库的内容都存在FILE集合里
比方说set rs=openrecordset("select* form student")
rs.file(0)就是SQL语句查询结果的第一列
rs.files就是整个结果
使用text1.text=rs.file(0)就可以把文本框于查询结果帮定起来
如果要对数据库进行修这时用以下代码：
db.Execute （<SQL语句--如"insert into student(sno,sname) value("","")">)

Answer 2

这个是取一条记录的值,只是示例,你看下应该能明白,

dim objConn as New OleDbConnection()
objConn.ConnectionString="Provider=Microsoft.Jet.OLEDB.4.0;Data Source="& Server.MapPath("date.mdb")
objConn.Open()
sql="select p_n,j_n from no3001_b where p_n='" & text1.value & "' and j_n='" & text2.value & "'"
Dim objCmd As New OleDb.OleDbDataAdapter(sql, objConn)
Dim D As New DataSet
objCmd.Fill(D, "3001_b")
Dim m As DataTable = D.Tables("3001_b")
if m.Rows.Count=0 then
MsgBox("no record",0,"My Application")
text3.value=""
text4.value=""
text5.value=""
text6.value=""
text7.value=""
text8.value=""
text9.value=""
text10.value=""
If MsgBox("没有此产品型号或件号,是否添加(yes/no)?", 1,"提示") = vbok Then
response.redirect("3001_b_add.aspx")
else
End If
else
sql="select * from no3001_b where p_n='" & text1.value & "' and j_n='" & text2.value & "'"
dim objCmd1 as New OleDbcommand(sql,objConn)
dim objreader as OleDbDataReader=objcmd1.executeReader()

objreader.Read()
text1.value=objreader.Item("p_n")
text2.value=objreader.Item("j_n")
text3.value=objreader.Item("p_type")
text4.value=objreader.Item("p_cz")
text5.value=objreader.Item("j_s")
text6.value=objreader.Item("gd")
text7.value=objreader.Item("p_g")
text8.value=objreader.Item("p_order")
text9.value=objreader.Item("hlz")
text10.value=objreader.Item("j_name")
objreader.close()
end if
objconn.close()

Answer 3

你可以在写入后在打开，输入到datagrid中
datagrid可以修改
Dim rstF As New ADODB.Recordset
rstf.open("select * from t_zhuanxian")
相对应的写入到text中