请各位给点帮助!!!控制连接数据库的问题.能帮上忙的有分哦

Question

之前我输入了一些数据,然后想做一个控制,单击它以后就能连接到数据库中,然后查到数据库中有没有这个数据库.请各位高手指点指点.求代码也求不同的方法和意思.

Answer 1

这个不难，你只要将连接字符串中的参数改为变量就可以了,你把下面的改为你自己的变量CN.ConnectionString= "driver={sql server};server=127.0.0.1;uid=SA;pwd=;database=数据库名"
cn.open注意捕获错误

Answer 2

到sql的光盘上找一个例子看看，例子的名字叫：UNZIP_SQLDMO

Answer 3

但是我要用的是ACCESS而不是SQL啊!!!有别的方法吗?

Answer 4

'获得数据库地址
dbName = App.Path
If Right(dbName, 1) <> "\" Then dbName = dbName & "\"
dbName = dbName & "zx.mdb"'连接有密码数据库
    Set conn = New ADODB.Connection
    conn.ConnectionString = _
        "Provider=Microsoft.Jet.OLEDB.4.0;" & _
        "Data Source=" & dbName & ";" & _
        "Jet OLEDB:Database Password=1111"'连接无密码数据库
'Set conn = New ADODB.Connection
'    conn.ConnectionString = _
'        "Provider=Microsoft.Jet.OLEDB.4.0;" & _
'        "Data Source=" & dbName & ";" & _
'        "Persist Security Info=False"
    conn.Open
.....

Answer 5

很簡單，你在你的工程文件的地方新增一個.udl的文件，然後選一個連接的數據源，在到程式中設定一下：
－－－－－－－－modul1－－－－－－－
sub main
    With anCN
        .ConnectionString = "FILE NAME=" & App.Path & "\ChingFeng.udl"
        .CursorLocation = adUseClient
   　　　.Open
    End With
    frmMain.show          '------主窗體　
end sub 
----------------modul2------------------
Public anCN As New ADODB.Connection－－－－－－－－－－－－－－－－－－－－－－－－－－－－
要給分。
頂

Answer 6

on error goto Err  db.CursorLocation = adUseClient
    db.ConnectionString = "driver={sql server};server=" & sDataSource & ";uid=" & sUserName & ";pwd=" & sPwd & ";database=" & sDatabase
    db.Openexit subErr: 
  msgbox "..." & Err.Description

Answer 7

现在就是我不知道怎样做这个查询和判断的代码,我要用的是ACCESS而不是SQL.

Answer 8

Dim mycon As ADODB.Connection
Set mycon = New ADODB.Connection
mycon.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & DataPath & "db1.mdb"
mycon.Open
mycon.Execute "delete from newsclass where classid=" & delnewsclassid
Set mycon = Nothing
用access库也是要用SQL语句的，这是一个删除的例子

Answer 9

我试过用SQL里的查询语句,但好像不行,它的出错提示是:
Expected :Case
请问为什么这样呢?我用的代码是:
use 考生数据库
select 姓名
from ....

Answer 10

use 考生数据库 ?
则好像是回到了FOXBASE时代了
Dim mycon As ADODB.Connection
Set mycon = New ADODB.Connection
mycon.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & DataPath & "db1.mdb"
mycon.Open //链接mdb数据库select 字段名1，字段名2 from 【access表名】  where   【条件】    //从表中查询字段