vb数据库编程教程

① 用VB做一个数据库该怎么做给点思路 或者从哪下手

大致有以下几步:读取文件 -- 格式化数据 -- 关闭文件 -- 使用数据如果数据量较大,需要进行筛选,且存放数据的源文件可能不定时变更,那么我们可以用一个临时文件来存放有用的数据,这样可大大提高程序的野尘效率.要 [格式化数据]时,我们首先要进行筛选,然后还得进行分类,这样文件中的字符串才能被转换成有用的信息来供程序使用.这样一来,不用说,处理速度将大大减慢,而且就算你设计的数据格式比较科学,当数据量非常大时,文件的容量也会变的让普通计算机无法承受. 相对文本文件来说数据库的使用也大致分为以下几步:打开数据库 -- 查找数据 -- 使用数据 -- 关闭数据库从中可以看出,里面少了一步格式化数据,因为数据库本身在存储数据时,它就是按照一定的格式来进行存储的. 其次是,数据库与文本文件返回数据的方法不同.如果把文本文件比作一个Textbox 的话,那么数据库更像是一个ListBox.使用文本文件时我们需要从整个Textbox中取出有用的信息,并进行处理,而Listbox则可以根据需要返回特定的某一项.由于VB本身并不带有可以访问数据库的类,所以我们需要引用一个包含能访问数据库的类来使用数据库.这里我们采用ADODB,相比DAO和能访问数据库的API来说,它比DAO更灵活,更强大;而比起API,它更简单易用,更适合初学者.而Access数据库比起sql,也相对简单了很多,且能够满足中小型应用程序的需要,所以我们在使用数据库时,选择了Access.就像使用文本文件来存储数据一样,我们需要先设计好数据结构,只不过在设计Access数据库的结构时,我们需要用到其它的程序来进行详细的规划.建议采用的程序是office中的Access或VB自带的VISDATA.当数据库设计好了以后,我们可以开始"数据库编程"了肢汪.首先,我们需要引用ADO.具体的方法是,在"工程" -- "引用" 中,找到"Microsoft ActiveX Data Object *.* Library",这里的"*.*"是指的时ADO的版本号,一般来说,应用程序或ActiveX控件都具有向下兼容性,所以我们尽可能选择比较新的版本.以确保程序在能识别旧版本Access的同时,也能识别较新版本的Access.然后我们需要在程序中创建一个对象.就好比我们在窗体上添加一个FileBox才能看到文件名一样,只有创建了ADO对象,我们才能够访问数据库.常用的对象有两个,Connection和Recordset.创建这两个对象的具体方法是:1.在引用后,使用New关键字,如 Private Conn As New ADODB.Connection Private Reco As New ADODB.Recordset2.在没引用时,用CreateObject创建对象: Dim Conn,Reco Set Conn = CreateObject("ADODB.Connection") Set Reco = CreateObject("ADODB.Recordset")创建了对象之后,下一步我们要做的就是打开数据库了.先看下面的代码,可以成功的打开数据库. Conn.open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=D:\Main.mdb" 这句代码打开了D盘中的Main.mdb这个数据库. Connection.Open方法的第一个参数是连接代码,它将传递给系统的数据库引擎.前半部分"Provider= Microsoft.Jet.OLEDB.4.0",它表示了数据库的类型.不同的数据库可能会不同.后半句"Source=d:\main.mdb"它表示了数据库所在的绝对路径.打开数据库之后,还要打开表.假如数据库中有一个表,表名为"Users",字段有两个,一个为用户名,一个为密码.那么看以下代码.1.想返回"Users"中,[用户名]为"去年烟花"的[密码] Recordset.open "Select 密码 From Users Where 用户名='去年烟花'",Connection,1,1 之后我们就可以把用户输入的密码进颂饥禅行比较,看是否允许登录. If Recordset.eof and Recordset.bof then Msgbox "用户不存在!",16 Else If PassWord =Recordset("密码").value then msgbox "登录成功!",64 Else msgbox "密码错误!",32 End If End If Recordset.Close2.假设Admin已经成功登录系统,我们想把所有的用户名和密码都显示出来 Recordset.open "Select * From Users",Connection,1,1 这时,表已经被打开,我们就用以下代码把它显示出来. Do whlie Not Recordset.eof Print "用户名: " & Recordset("用户名").value & "密码: " & Recordset("密码").value Recordset.MoveNext Loop Recordset.Close由以上代码示例可以看出,打开表时,可以只打开其中的一个字段,也可以打开所有.第一个参数是SQL语句.Select [字段名] From 表名 [Where 条件]这里的条件可以省略.且字段名也可以用"*"来代替所有字段.需要注意的是,如果你用(1)中的方法打开,那么(2)后面显示的代码就不能再用在(1)中.因为(1)里并没有打开[用户名]字段,所以这一句Recordset("密码")就没有值存在,还有可能出错.后面的条件,可以用"="、">"、"<"等运算符.比如 "Where ID > 32".(这里假设[ID]为数字型.) 这是打开的部分.第二个很重要的部分就是查询记录.数据库它并不是把所有记录全部放到一个变量中备用的.而是以"当前记录"的形式来返回一个值.所以我们想从中找到有用的信息,就必须要对信息进行定位/筛选.定位: 移动到下一条 Recordset.MoveNext 移动到上一条 Recordset.MovePrevious 移动到最后一条 Recordset.MoveLast 移动到第一条 Recordset.MoveFrist 移动到某一条 Recordset.Move Number筛选: Recordset.Find "条件"如:[用方法(2)打开表之后] Private Sub Command1_Click() Recordset.Find "用户名=" & "text1.text" If Recordset.Eof <> True Then Msgbox "该用户的密码是:" & Recordset("密码").value,64 Else Msgbox "未找到该用户的资料!",16 End If End SubMoveNext 只有当Eof不为True时,才可用,否则发生错误.而MovePrevious刚是Bof不为True时.... 而只要Eof 和 Bof中有一个不为真时,也就是说只要有一条记录时,它就可以使用. Find 方法中的条件和Open时的第一个参数中的条件表述方法是完全一致的.当在已打开的记录集中,找不到该记录时,Eof为True.找到则当前的值就是符合条件的记录. 第三个部分就是添加/修改记录. 修改记录很简单,先按以上的方法找到相关记录之后,给记录赋值就可以了. 比如:[(修改密码)按方法(1)打开表之后] Recordset("密码").value = "123456" Recordset.Updata 需要注意的就是,在修改完成后,要调用Updata方法,这样修改才能生效.而添加记录则可以用以下代码来实现: Recordset.addnew Recordset("用户名").value = "Admin" Recordset("密码").value = "Admin" Recordset.Updata这里,先要调用Addnew方法,增加一条新记录,然后对这个新记录中的各字段赋值,最后再调用Updata方法.到这里就差不多了,最后说一下上面提到的几个方法.Recordset.Open SQL语句,数据源,游标类型,打开方法SQL语句不用说了,就是Select那啥的,目的就是按要求从表中返回数据 数据源就是一个打开之后的Connection对象. 去他妈的游标类型,填1就可以了 [偷笑ing] 打开方法对应了几个常数,具体哪几个可以从对象浏览器里看. 对应数值的意义: 1 只读 2 独占 3 可写 4 自已可写,别人可读Connection.open 连接代码,服务器用户名,密码 这里的连接代码就不在多说了,服务器用户名,密码只有在连接远程数据库时才用到.

② 如何用vb建立一个access数据库

vb只是一个编程语言，并不能建立数据库，建立access数据库要完全在access中进行。

前提条件：必须安装微软access数据库。

步骤：

1、找好要存放数据库的路径，如C盘data路径；

2、路径下空白处点右键，新建-Microsoft Access数据库，如图：

4、双击access文件，在里边创建所要的表，函数等等即可。

③ VB开发数据库应用程序的步骤和方法

1.设计好数据库表
2.设计好程序功能，也就是你需要对你程序要实现的功能有个很好的了解，不能说边开发边想，这种方法并不适合大多数人
3.将代码模块化，比如：连接数据的代码可以放在一个模块中，数据库操作（查询/删除等等）放在另一个模块中，界面的基本操作可以放在另一个模块中，这样做的好处在于好维护代码以及后期代码的升级等等，当然不是必须的
4.界面的设计 ，包括各个控件的布局等等，界面设计像VB这种可视化编程的，能减少控件直接拖拉使用的最好减少，更多的是通过编码来实现，其中对于一些特殊的控件可以通过自定义用户控件
===========================
基本来说一个连接数据库的桌面软件开发，在开发前，你需要明白自己要做什么，这个软件要为别恩做些什么，等想好了再去做，做好前期设计是必须的，编码并不是主要的，只是一些苦力活而已
最后小AD下,思想源地能为你提供最好的设计思路和实现方案，只要你需要可以M我们

④ 如何在VB中操作数据库

要查找数据库信息，关键是要解决链接数据库的问题，下面简述Vb如何SQL数据库：有两种方法可以实现，一种是通过ODBC数据源的配置进行连接，一种是通过纯代码编辑进行连接，下面我们就详细介绍一下这两种连接方法。ODBC数据源VB连接SQL数据库一、配置ODBC数据源1、在控制面板中，双击管理工具，然后打开ODBC数据源管理器。2、在“系统DSN”选项卡中，单击“添加”按钮，打开“创建新数据源”对话框，在“名称”列表框中选择“SQLServer”。选好单击完成3、在打开“建立新的数据源到SQLServer”对话框，在“名称”文本框输入新数据源的名称，描述数据源按你理解的方式来写(随意)。“服务器”就选择你要连接到的服务器。4、选择使用用户输入登录的ID和密码的SQL验证。选连接SQL默认设置5、再下一步下一步，完成。测试数据源看连接是否成功就行了。成功后按确定。二、VB中设置连接1、添加部件MircrosoftADODataControl6.0(OLEDB),把部件拖到窗体。2、对ADO部件点右键选属性，选择使用连接字符串，按生成。3、选择按下一步4、1）输入服务器名称2）使用指定的服务器信息3）在服务器上选择数据库这时就选择你在SQLServer建好的数据库就行了5、测试连接可以看到连接是否成功！通过代码VB连接SQL数据库PublicconnAsNewADODB.ConnectionPublicrsAsNewADODB.(ByValCipAsString)=NewADODB.Connectionconn.ConnectionTimeout=25conn.Provider="sqloledb"conn.Properties("datasource").Value=Cip'服务器的名字conn.Properties("initialcatalog").Value="zqoa"'库名'conn.Properties("integratedsecurity").Value="SSPI"'登陆类型conn.Properties("userid").Value="sa"conn.Properties("password").Value="sa"conn.OpenOpenCn=TrueaddFlag=TrueExitFunctionstrerrmag:mag="Datacan'tconnect"CallMsgBox(mag,vbOKOnly,"Error:Dataconnect")addFlag=()OnErrorResumeNextIfconn.StateadStateClosedThenconn.CloseSetconn=(ByValstrsqlAsString)AsBoolean'连接数据库记录集=NewADODB.RecordsetIfaddFlag=FalseThenrpy=TrueWithrs.ActiveConnection=conn.CursorLocation=adUseClient.CursorType=adOpenKeyset.LockType=adLockOptimistic.OpenstrsqlEndWithaddFlag=TrueopenRs=TrueEnd'ExitFunctionstrerrmag:mag="datanotconnect"CallMsgBox(mag,vbOKOnly,"error:connect")openRs=FalseEnd'()OnErrorResumeNextIfrs.StateadStateClosedThenrs.CloneSetrs=NothingEndSub

⑤ VB怎样写数据库

先建好数据库，然后用ADO的方式连接数据库，然后先ADD，添加记录，再用UPdata方式将数据写入数据库即可。
例：
Dim Con As ADODB.Connection
Dim rs As ADODB.Recordset
Dim Sql As String

Set Con = New ADODB.Connection
Con.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\db.mdb;Persist Security Info=False " '打开数据库
Set rs = New ADODB.Recordset
rs.Open "Select * From 表 ", Con, adOpenDynamic, adLockOptimistic '打开数据库里的表
rs.add '添加记录
rs.name = "王五一" '写记录
rs.update '写入数据

⑥ VB创建数据库表

一、 创建数据库：

在DAO中用CreatDataBase方法可以根据用户需求动态的创建数据库。这一点在程序中是非常有用的。用户可以根据要求实时建立数据库。建立过程如下：

Private Sub Com_creat_Click()
On Error GoTo Err100
CreatDataBase "数据库名称.mdb" ，dbLangGeneral
Msgbox "数据库建立完毕"
Exit Sub
Err100:
MsgBox "不能建立数据库! " & vbCrLf & vbCrLf & Err.Description, vbInformation
End Sub

这样，数据库便在当前默认的路径下建立了。

二、 创建表与字段：

建立数据库后，则需要在该数据库中建立表，这要用到TableDef 对象。先定义一个TableDef类型的对象，然后用TableDef集合中Append方法将之追加到数据库当中去。并且同时定义一个Field对象，用CreatFiele的方法创建一个Field对象，向表中添加字段。例如:

Private Sub Com_table_Click()
On Error GoTo Err100
Dim Defdb As DataBase
Dim NewTable As TableDef
Dim NewField As Field
Set Defdb = Workspaces(0).OpenDatabase (App.path & "\数据库名称.mdb" ,0, False)
Set NewTable = DefDataBase.CreateTableDef("表名")
Set NewField = DefTable.CreateField( "字段名" , dbText ,6) ′创建一个字符型的字段，长度为6个字符
DefTableFields.Append NewField ′字段追加
DefDatabase.TableDefs.Append NewTable ′表追加
Msgbox " 表建立完毕 "
Exit Sub
Err100:
MsgBox "对不起，不能建立表。请先再建表前建立数据库？", vbCritical
End Sub

⑦ VB数据库视频教程

Dim ServerAdd As String '服务器地困渗知址 (127.0.0.1)
Dim DBname As String '服务器上数据库的名称
Dim UserName As String '登录数据库的用户名
Dim UserPwd As String '登录数据库的密码

'设置连接字符串的参数
ServerAdd = Trim(TxtServer.Text) '服务器IP(192.168.1.6)
DBname = "ChanYdata" '数据库名称
UserName = "" '登录用户汪消名
UserPwd = "" '密码

SqlCon.ConnectionTimeout = 10
SqlCon.CursorLocation = adUseClient
SqlCon.ConnectionString = "喊念uid=" & UserName & ";pwd=" & UserPwd & ";driver={Sql server};server=" & ServerAdd & ";database=" & DBname & ";dsn=''"

⑧ VB程序设计一般的四个步骤

1、建立应用程序界面

2、设置对象的属性

3、编写应用程序的代码

4、保存和运行程序

VB拥有图形用户界面（GUI）和快速应用程序开发（RAD）系统，可以轻易的使用DAO、RDO、ADO连接数据库，或者轻松的创建ActiveX控件，用于高效生成类型安全和面向对象的应用程序。程序员可以轻松的使用VB提供的组件快速建立一个应用程序。

(8)vb数据库编程教程扩展阅读

VB语言缺点

Visual Basic 语言具有不支持继承、无原生支持多线程、异常处颂做理不完汪局善等三项明显缺点，使其有所局限性（此些缺点皆已在 vb .net 获得改进）。

1、不支持继承

VB 5.0 和 VB 6.0 都是基于对象的编程语言，但是不包含继承特性。VB 中提供了特殊的类的功能，但是还是不能满足程序员的需求。

2、无原生支持多线程

Visual Basic 对于多线程无原生支持，只能通过Windows API的调用实现，且极其的不稳定。因为在API创建的线程中，并没有自动初始化运行时库，导致部分的函数无法使用。一般的，在VB6等早期的VB开发环境下，使用API创建线程的目的是完成容易使程序假死的大量数据或者逻辑的计算。

3、异常处理不完善

Visual Basic 中内置异常处理，即使未写异常处理代码，一旦用户出错也会弹出一个明确写出出错原因对话框，接着程序终止。

Visual Basic 中可以使用 Err.Raise抛出异常。对系统及用户抛出的异常的处理常用两种模式：一是使用 On Error Resume Next 处理错误；另一种是使用 On Error Goto 将运行引入错误处理代码。但相对 C++ 等语言而言，这样的异常处困樱让理破坏了代码的结构。