• 主页

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

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

求代码也求不同的方法和意思.
...全文
106 点赞 收藏 16
写回复
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日
UP
 回复 点赞
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日
谁还有其它的方法吗?????
 回复 点赞
huangsenji 2004年12月28日
但是我要用的是ACCESS而不是SQL啊!!!

有别的方法吗?
 回复 点赞
pweixing 2004年12月28日
到sql的光盘上找一个例子看看，例子的名字叫：UNZIP_SQLDMO
 回复 点赞
aohan 2004年12月28日
这个不难，你只要将连接字符串中的参数改为变量就可以了,你把下面的改为你自己的变量

CN.ConnectionString= "driver={sql server};server=127.0.0.1;uid=SA;pwd=;database=数据库名"
cn.open

注意捕获错误
 回复 点赞
发动态
发帖子
VB基础类
创建于2007-09-28

2750

社区成员

19.7w+

社区内容

VB 基础类
社区公告
暂无公告