vb数据库实例
① vb数据库开发实例教程
推荐你去这个网站学学，很多都是零基础的，有些是很贴近就业的，比内较适合自学容！
http://www.51zxw.net/study.asp?vip=4632733
② vb连接数据库的详细介绍，最好有实例和注解》
'连接access数据库
dim cnn As ADODB.Connection
dim rstTable As ADODB.Recordset
Set cnn = New ADODB.Connection '连接数据库
cnn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\db.mdb"
cnn.Open '打开数据库
Set rstTable = New ADODB.Recordset
rstTable.Open "MainTable", cnn, 2, 3 '打开一个表。 "MainTable"也可是一个SQL语句。
'连接SQL数据库
'请看下面的参考资料。
③ vb连接ACCESS数据库实例
对于没有VB运行库的机器，必须注册VB运行库，程序中的代码不需要改动。 ----------------------------------- 链接数据库的方法比较多，看你采用什么方法链接了，： 1、用ADO链接；2、用Data数据控件链接；3、用ADODB数据控件链接；还有数据库文件是Access 1997?Access 2000?Access 2003?有没有加密？等等等等问题，首先确定这些问题，才能..... 下面给你一个用ADO的代码链接的实例：（ACCESS 2003) 首先在工程中点击【工程】-【引用】，在打开的对话框选择Microsoft AxtiveX Data Objects 2.8 Library 勾选，然后定义二个对象： Dim conn As New ADODB.Connection, rs As New ADODB.Recordset 其中conn是数据库链接对象，rs是数据记录集对象 那么，下面就是利用SQL语句链接数据库了： conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=F:\library\1.mdb;Jet OLEDB:Database Password=" strSQL = "SELECT * FROM 数据库中的表" rs.Open strSQL, conn, 3, 3 至此数据库已经链接成功，并且已经加载了记录集，下面你就可以进行数据操作了，注意，在数据库操作完成后，千万别忘记关闭记录集和数据库链接对象： rs.Close conn.Close
④ 求一个vb6.0+SQL数据库操作实例
这个貌似我以前写的一个系统初始化的程序
⑤ VB数据库设计实例
在工程1时，设计一个数据库查询程序
在窗体放置3个TEXT控件，在TEXT1空间输入id是，另外2个控件能显示出id所对应的名称和性别
建一个名为data.mdb的ACCESS数据库，表名为user
字段1
id
主键
字段2
名称
字段3
性别
Private
Sub
CmdFind_click()
'查找按钮
Dim
MyCnn
As
New
ADODB.Connection
Dim
MyRs
As
New
ADODB.Recordset
MyCnn.Open
"Provider=Microsoft.Jet.OLEDB.4.0;Data
Source=D:\My
Documents\data.mdb;Persist
Security
Info=False"
MyRs.open
"Select
*
from
User
where
id="
&
Text1.text
,MyCnn
if
not
MyRs.eof
then
Text2.text=trim(rs!名称）
Text3.text=trim(rs!性别）
Else
Msgbox
"没有该用户！"
Text1.selstart=0
Text1.SelLength=Len(Text1.Text)
Text1.SetFcous
EndIf
Myrs.close
Set
MyRs=nothing
MyCnn.close
Set
MyCnn=Nothing
End
Sub
⑥ vb连接数据库实例！！
哎，随便一本VB6.0的书上都有连接ACCESS的例子
⑦ 求 vb 连接数据库 的实例
简单代码实现：：
<%
dim conn '定义变量 conn
Set Conn = Server.CreateObject("ADODB.Connection") '建立连接对象
Conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("库的名字.mdb") '打开库
dim rs,sql
set rs=server.CreateObject("adodb.recordset") '建立记录对象
sql="select * from 表的名字"
rs.open sql,conn,3,2 '打开表
rs.addnew
rs("表中数据类型的名字")=request.Form("表单的名字")
rs("表中数据类型的名字")=request.Form("表单的名字")
rs.update
rs.close
set rs=nothing '关闭表
conn.close
set conn=nothing '关闭库
%>
蒙狼建站---您互联网的“诚信”合作伙伴！
⑧ VB数据库实例
我不大了解access(⊙o⊙)哦
⑨ vb连接access数据库实例
工程-引用-勾选 Microsoft Active Data Objects 2.6 Library
代码部分
dim cn as new adodb.connection
dim rs as adodb.recordset
private sub form_load()
cn.open “provider=microsoft.jet.oledb.4.0;data source=” & app.path & “\123.mdb”
set rs=new adodb.recordset
rs.open“select * from 数据库字段名 where 数据库字段名=`”回 & trim(text1.text) & “`”,cn
end sub
private sub command_click
if rs.eof=false then msgbox rs(“数据库字段名”)
end sub
手机打的可能有错！答