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

huangsenji 2004-12-28 12:43:08

之前我输入了一些数据,然后想做一个控制,单击它以后就能连接到数据库中,然后查到数据库中有没有这个数据库.请各位高手指点指点.

求代码也求不同的方法和意思.

...全文

158 16 打赏收藏转发到动态举报

写回复

用AI写文章

16 条回复

切换为时间正序

请发表友善的回复…

发表回复

flying_flower 2004-12-31

打赏
举报

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 【条件】 //从表中查询字段

huangsenji 2004-12-30

打赏
举报

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

huangsenji 2004-12-30

打赏
举报

有人知道吗??请指教

snowmiao2002 2004-12-30

打赏
举报

on error goto Err

db.CursorLocation = adUseClient
db.ConnectionString = "driver={sql server};server=" & sDataSource & ";uid=" & sUserName & ";pwd=" & sPwd & ";database=" & sDatabase
db.Open

exit sub

Err:
msgbox "..." & Err.Description

lyxhappy 2004-12-30

打赏
举报

huangsenji 2004-12-30

打赏
举报

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

huangsenji 2004-12-30

打赏
举报

不过还是有点用,请了,,,,,,还有那位大哥给点意见呢

huangsenji 2004-12-30

打赏
举报

我现在不是要删除啊!

flying_flower 2004-12-30

打赏
举报

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语句的，这是一个删除的例子

YUAN168 2004-12-29

打赏
举报

很簡單，你在你的工程文件的地方新增一個.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

－－－－－－－－－－－－－－－－－－－－－－－－－－－－
要給分。。。。。。。。。。
頂。。。。。。。。。

huangsenji 2004-12-29

打赏
举报

我的想法是,之前我输入了一些数据,然后想做一个控制,单击它以后就能连接到数据库中,然后查到数据库中有没有这个数据.有就转到别的窗体,问题现在就是我不知道怎样做这个查询和判断的代码.....请各位高手指点指点.

libralibra 2004-12-29

打赏
举报

'获得数据库地址
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
.....

huangsenji 2004-12-29