VB中怎么写数据库查询语句

Question

我最近毕业设计写了一个程序，但是涉及到数据库查询的不会写。数据库采用SQL server2000编制。请各位高手指点。非常急！谢谢！

Answer 1

Dim db As DAO.Database
Dim Record As DAO.Recordset
Set db = DBEngine.OpenDatabase("{DataBaseName}")
Set Record = db.OpenRecordset("select * from {TableName}")   '这里就开始用SQL
Record.FindFirst "{SQL语句}"DAO很有用.

Answer 2

Dim strSQL As String
    strSQL = "select * from 门市销售收入表 where CDate(日期) between " & "'" & CDate(txtDate.Text) _
             & "' and " & "'" & CDate(txtDate1.Text) & "'"
    
    Set rscmdOk3 = New ADODB.Recordset
    rscmdOk3.Open strSQL, cnCnn1.cnCnn, adOpenStatic, adLockOptimistic, adCmdText

Answer 3

首先引用ado,
Dim objcon As New ADODB.Connection
Dim objrs As New ADODB.Recordset
objcon.Open "Provider=sqloledb.1;user id=sa;password=密码;Initial Catalog=数据库名;Data Source="
objrs.Open "select 字段 from 表名 ", objcon, 3, 1Set Datagrid1.DataSource = objrs

Answer 4

用ado
先引用ado连接:
Dim rst As New ADODB.Recordset
Dim cnn As New ADODB.Connectioncnn.ConnectionString = "Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;User ID=sa;Initial Catalog=数据库名;Data Source=数据库名"
cnn.CursorLocation = adUseClient
cnn.Open
rst.Open "select * from 数据库名.dbo.表名", cnn, adOpenStatic, adLockPessimistic查询:
sql="..."          '你自己在这里写sql吧
set rst=cnn.excute(sql)

Answer 5

Dim CN   As New ADODB.Connection                '定义数据库的连接存放数据和代码
    Dim Rs   As New ADODB.Recordset
    CN.ConnectionString = "Provider=sqloledb;Data Source=pmserver;Initial Catalog=northwind;User Id=sa;Password=sa;"
    CN.Open
    Rs.CursorLocation = adUseClient
    Rs.Open "select * from employees", CN, adOpenDynamic, adLockBatchOptimistic
   Set DataGrid1.DataSource = Rs执行SQL语句：cn.excute  你的SQL语句

Answer 6

Dim strSQL As String
    strSQL = "select * from 门市销售收入表 where CDate(日期) between " & "'" & CDate(txtDate.Text) _
             & "' and " & "'" & CDate(txtDate1.Text) & "'"
    
    Set rscmdOk3 = New ADODB.Recordset
    rscmdOk3.Open strSQL, cnCnn1.cnCnn, adOpenStatic, adLockOptimistic, adCmdText

Answer 7

我建议你用ado，这是目前应用最为广泛的,先在odbc里建个数据源，如ds，然后vb里代码如下
dim cnn as new adodb.connection
dim rst as new adodb.recordset
cnn.open "ds","username","password"
ssql="select * from tablename"
rst.open ssql,cnn,adOpenDynamic, adLockBatchOptimistic

Answer 8

查询有很多具体问题还需具体分析一般我一般是用存储过程
Dim cmd As ADODB.Command
Set cmd = New ADODB.Command
cmd.ActiveConnection = cn
cmd.CommandType = adCmdText
cmd.CommandTimeout = 10
        cmd.CommandText = "INSERT INTO ’表名(‘要更新的字段1,要更新的字段2) values (?,?) "
        cmd.Parameters(0).Direction = adParamInput
        cmd.Parameters(1).Direction = adParamInput
        cmd.Parameters(0).Type = adVarChar
        cmd.Parameters(1).Type = adVarChar
        cmd.Parameters(0).Value = ‘参数1
        cmd.Parameters(1).Value =  ’参数2
        cmd.Execute

Answer 9

我的QQ是：5090848
大家有时间和我在QQ上聊

Answer 10

找本书就行了，或者查MSDN，不过的先会SQL语法，要不时间要更长

Answer 11

建议你用ADO。
不过还是先找本书看看，比在这里快多了。

Answer 12

Dim cnn   As New ADODB.Connection                
    Dim Rst   As New ADODB.Recordset
   set cnn.ConnectionString = "Provider=sqloledb;Data Source=pmserver;Initial Catalog=northwind;User Id=sa;Password=sa;"
    cnn.Open
    Rst.CursorLocation = adUseClient
    Rst.Open "select * from employees", cnn, adOpenDynamic, adLockBatchOptimistic
   Set DataGrid1.DataSource = rst'执行SQL语句：   cnn.excute 

Answer 13

Dim CN   As New ADODB.Connection                '定义数据库的连接存放数据和代码
    Dim Rs   As New ADODB.Recordset
    CN.ConnectionString = "Provider=sqloledb;Data Source=pmserver;Initial Catalog=northwind;User Id=sa;Password=sa;"
    CN.Open
    Rs.CursorLocation = adUseClient
    Rs.Open "select * from employees", CN, adOpenDynamic, adLockBatchOptimistic
   Set DataGrid1.DataSource = Rs执行SQL语句：cn.excute  你的SQL语句

Answer 14

楼上的各位，用ADO中Recordset的Find方法请问怎么实现？