比如 table1 里有name,age 我如何执行 select age from table1 where name=*** 然后把查到的数据(假如是男) 输入到 一个text1里!!! 最好有详细的代码
在VB中可以充分使用结构化查询(SQL)语句,如select age from table where name=*** 或select age from table1 where cgrade like,如果复杂查询还可以使用嵌套。updata是错误的,应该为update它有数据更新的功能,在vb中建立的数据库中,当对某一表格中的某条记录修改、删除或插入后,update可以对其进行更新,以保持数据的统一性!
楼上的看来没有弄明白我的意思 我是说如何执行select age from table1 where name=*** 最后的结果如果是把查询的age(唯一的))传送到text1.text
dim rs as new adodb.recordset dim cn as new ADODB.Connection cn.open.... rs.open "select age from table1 where name='" & *** & "'",cn text1.text=rs.fields("name").value
模块 Public con As New ADODB.Connection Public rs As New ADODB.Recordset Sub main() con.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=E:\diy软件成品\收入表\mmm_01.mdb;Persist Security Info=False" ··连接字符串 Form1.Show End Sub 窗体 Private Sub Form_Load() If rs.State = 1 Then rs.Close rs.Open "select * from b_1", con, adOpenKeyset, adLockOptimistic getdate函数 Private Function getdate() Text1.Text = rs.Fields(1) Text2.Text = rs.Fields(2) Text3.Text = rs.Fields(3) Combo1.Text = rs.Fields(0) End Function
Private Sub cmdOK_Click() Dim con As New ADODB.Connection con.CursorLocation = adUseClient con.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source= " & App.Path & "\Database\main.mdb" Dim rs As New ADODB.Recordset Dim mysql As String Dim str As String mysql = "select * from 用户表 where 用户名='" & text.text & "'" rs.Open mysql, con, adOpenStatic, adLockOptimistic Text1.text = rs.Fields("age").Value End Sub 系统提示出错:语法错误(操作符丢失)在查询表达式'用户名=‘1’'中 那个1是我输入的
最好有详细的代码
dim cn as new ADODB.Connection
cn.open....
rs.open "select age from table1 where name='" & *** & "'",cn
text1.text=rs.fields("name").value
模块
Public con As New ADODB.Connection
Public rs As New ADODB.Recordset
Sub main()
con.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=E:\diy软件成品\收入表\mmm_01.mdb;Persist Security Info=False" ··连接字符串
Form1.Show
End Sub
窗体
Private Sub Form_Load()
If rs.State = 1 Then rs.Close
rs.Open "select * from b_1", con, adOpenKeyset, adLockOptimistic
getdate函数
Private Function getdate()
Text1.Text = rs.Fields(1)
Text2.Text = rs.Fields(2)
Text3.Text = rs.Fields(3)
Combo1.Text = rs.Fields(0)
End Function
Dim con As New ADODB.Connection
con.CursorLocation = adUseClient
con.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source= " & App.Path & "\Database\main.mdb"
Dim rs As New ADODB.Recordset
Dim mysql As String
Dim str As String
mysql = "select * from 用户表 where 用户名='" & text.text & "'"
rs.Open mysql, con, adOpenStatic, adLockOptimistic
Text1.text = rs.Fields("age").Value
End Sub
系统提示出错:语法错误(操作符丢失)在查询表达式'用户名=‘1’'中
那个1是我输入的