请问：如何实现数据库连接，我是初学VB的女生，这是我的作业

Question

是啊，是用Access97、Access2000还是SQL

Answer 1

谢谢各位的帮助！
是用Access97。

Answer 2

用控件ado可以实现！呵呵，搬了原来的回答，顶一下！
方法1 用adodc控件把数据源和要显示数据的控件相连接
1。首先对adodc控件的connectstring属性和recordsource属性设置。如：
adodc.connectstring="Provider=SQLOLEDB.1;Persist Security Info=False;UserID =frank;Initial Catalog=mydb;Data Source=sql sever"（可利用属性页设置）
adocd.recordsource=A(在属性页中选择 命令类型 2-adcmdtable,就能选择mydb上的3个表了）
2。再对你所要绑定数据的控件（如：datagrid控件、combobox控件，甚至textbox控件）的datasource属性和datafield属性设置。假设用datagrid控件
如：
datagrid.datasource=adodc1
if check1.value=1 then
  datagrid.datafield=表中的列名A
elseif check2.value=1 then
  datagrid.datafield=表中的列B
elseif check3.value=1 then
  datagrid.datafield=表中的列名C
endif
这样就实现了动态访问你想要访问的a,b,c3个表了！
方法2 用recordset做数据源，不用adodc控件，只用代码实现显示控件和数据源相连
dim strConection As ADODB.Connection  ’申明一个连接
dim strRS As ADODB.Recordset          ’申明一个记录集
dim strSQL as string                  ’SQL语句'设置数据源连接
Set strConection = New ADODB.Connection
strConection.ConnectionString = ="Provider=SQLOLEDB.1;Persist Security Info=False;UserID =frank;Initial Catalog=mydb;Data Source=sql sever"’根据checkbox选择表
strSQL="select * from "
if check1.value=1 then
  strSQL=strSQL & "A"
elseif check2.value=1 then
  strSQL=strSQL & "B"
elseif check3.value=1 then
  strSQL=strSQL & "C"
endif’打开选中的表放入记录集中
Set RS = New Recordset
With RS
        .ActiveConnection = strConection
        .CursorLocation = adUseClient
        .CursorType = adOpenStatic
        .LockType = adLockOptimistic
        .Open strSQL
End With’把要显示数据的控件的数据源设置为以打开的记录集
Set datagird.datasource = strRS这样就实现了你要的功能！
要注意的是：对于datagrid这类控件已经可以实现即时更新数据库。
          如果用connection.execute strSQL 方法的话，代码更简单，可以不用到记录集， 只用connection就能实现:
Set datagird.datasource = connection (strSQL) 
不过用这个方法的不足是数据是只读的，无法做到即时更新，如要更新需用update方法实现

Answer 3

上面的connectionstring你可要自己设一下哦，上面是人家用sql数据库的！

Answer 4

若是初学 只用adodc和datagrid控件就可以了
工程/部件  选取 microsoft ado data control 6。0（oledb） 和 microsoft datagrid control 6。0（oledb）
在窗体上添加控件 设置OLE DB驱动，纪录源 DataSource  就可以连接并显示数据库了最好找本书看看

Answer 5

你不是女生我照样帮你，你是女生我还是会帮你！
记住：女生不特殊（美女除外）
连接access97数据库的方法很多
最简单的是用data控件，不用写代码，但是可操作性太差。
现在流行ado
用ado连接又有很多种写法我介绍一种用odbc数据源的
打开控制面板，找到odbc数据源，选择系统dsn，选择添加，再选择驱动microsoft access driver,在出现的对话框里导入你的数据文件,并取好名字。
在你的工程里引用microsoft activex data object xx library(xx和你的工具有关）
好啦在你程序里写代码把
dim ado As ADODB.Connection
dim rs As ADODB.RecordsetSet ado = New ADODB.Connection '建立ado连接
ado = "dsn=vcddata2;uid=;pwd=;"'uid,pwd分别是用户名和密码，dsn是数据源名称
ado.Open
（或者rs.Open search, "vcddata2", adOpenStatic, adLockPessimistic 'search是传过来的查询条件(source)，后面是游标种类（这里是静态），加锁种类，该设置是为了保证游标能前后移动）

Answer 6

starbattler(小石头)　你够狠，说完了，叫我们说啥！！

Answer 7

哈哈，这个这个，呵呵，不好意思拉。没有考虑到帅哥 leonnet(里奥) 也会来！！！呵呵

Answer 8

augue
好变态的男性，女人的问题，你也参与：））