有关VB做的数据库连接的程序

一、有关VB做的数据库连接的程序

我给你写出个例子：

首先在工程->引用 Microsoft ActiveX Data Objects 2.0 Library

Dim Cn As New ADODB.Connection

Dim Re As New ADODB.Recordset

Dim SqlStr As String

Private Sub Form_Load()

'以文件打开,也可以指定ODBC数据源（DNS）

Private Sub OpenDiskMdb()

Dim Cn As New ADODB.Connection

Dim Re As New ADODB.Recordset

Dim SqlStr As String

Dim ConnStr As String

Set Cn = New ADODB.Connection

Set Re = New ADODB.Recordset

Cn.Open Provider=Microsoft.jet.OLEDb.3.51;Data Source=e:\db\01.mdb '打开磁盘上的数据库

Re.CursorLocation=adUseClient

SqlStr = select * from titles ‘SQL语句

Re.Open SqlStr, Cn, adOpenStatic, adLockReadOnly

End Sub

'这样所查询的内容在Re内可以用网格控件来显示。

二、求几个简单的VB实例

Private Sub Command1_Click()

If Command1.Caption = \显示\ Then

Text1.Text = \这是我的第一个VB程序\

Command1.Caption = \继续\

ElseIf Command1.Caption = \继续\ Then

Text1.Text = \请你赐教，谢谢!\

Command1.Caption = \显示\

Command2.Enabled = True

End If

End Sub

Private Sub Command2_Click()

End

End Sub

网址： 自己可以去看．

三、谁给个VB与数据库连接的具体步骤实例，并附注解。

ADO和DAO是VB访问数据库的两种常用的技术，连接数据库代码如下

Option Explicit

'定义Ado 变量

Dim adocon As Connection

Dim rsado As Recordset

'定义Dao变量

Dim daodb As Dao.Database

Dim daors as Dao.Recordset

Private Sub Form_Load()

'Ado访问数据库的代码

Set adocon=New Connection

adocon.CursorLocation=adUseClient

adocon.Open Provider=Microsoft.jet.OLeDB.3.5;Data Source= & App.path & \adodao.mdb;

set rsado=New Recordset

rsado.open adodao,adocon,adOpenDynamic,adLockOptimistic

If rsado.RecordCount>0 Then

rsado.MoveLast

rsado.moveFirst

Text1.Text=rsado.Fields(0)

End If

'Dao 访问数据库的代码

set daodb=OpenDatabase(App.Path & \adodao.mdb)

set daors=daodb.OpenRecordset(adodao,2)

If daors.RecordCount>0 Then

daors.MoveLast

daors.MoveFirst

Text2.Text=daors.Fields(0)

end if

end sub

四、如何利用VB制作数据库？

你的肯定不是网络了。

单机就很好办。

如果注册信息很简单的话，用*.txt或*.dat就可以保存哪些信息了。

如果复杂些或者你想学习数据库，那么你可以用ACCESS或者SQL SERVER数据库、。

-----------------------------------------------------------------------------------------------------------------

你还是先弄单机吧。

网络你要学VBScript或者ASP，PHP等。