怎样在vb 中使用sql语句？(在线等待)

Question

Dim con As New ADODB.Connection
Dim Ret As New ADODB.Recordset
con.ConnectionString = "provider=sqloledb;database=NewSalary;Driver={SQL SERVER};server=;uid=temp;pwd=ok?"
con.Open
在链接到一个sql server数据库后 我想使用sql语句查询纪录，应该怎么做？
谢谢各位大虾

Answer 1

Dim con As New ADODB.Connection
Dim Ret As New ADODB.Recordset
con.ConnectionString = "provider=sqloledb;database=NewSalary;Driver={SQL SERVER};server=;uid=temp;pwd=ok?"
con.Open
sql="select * from ***"
ret.open sql,con,3,2
操作
ret.close
con.close

Answer 2

Dim Rst As New ADODB.Recordset
        Dim StrSql As String
        
        StrSql = "SELECT * FROM [TABLENAME]"
        Rst.CursorLocation = adUseClient
        Rst.Open StrSql, Con, adOpenKeyset, adLockBatchOptimistic

Answer 3

set Ret=con.execute('select * from jobs')
msgbox Ret.fields(0)

Answer 4

Dim con As New ADODB.Connection
Dim Ret As New ADODB.Recordset
con.ConnectionString = "provider=sqloledb;database=NewSalary;Driver={SQL SERVER};server=;uid=temp;pwd=ok?"
con.Open   Ret.CursorLocation = adUseClient
    Ret.Open "select * from employees", con, adOpenDynamic, adLockBatchOptimistic    Set DataGrid1.DataSource = Ret

Answer 5

执行sql语句:con.execute "insert into table ......."

Answer 6

Dim cmd As New ADODB.Command
  cmd.ActiveConnection = conn
  cmd.CommandText = "select * from employee"
  cmd.Execute

Answer 7

Dim con As New ADODB.Connection
Dim Ret As New ADODB.Recordset
set Ret=""
con.ConnectionString = "provider=sqloledb;database=NewSalary;Driver={SQL SERVER};server=;uid=temp;pwd=ok?"
con.Open
sql="select * from ***"
set ret=con.execute(sql)
操作
con.close
set Ret=""