1. vb与数据库实例
Dim conn As New ADODB.ConnectionDim rs As New ADODB.Recordsetconn.ConnectionString="" '数据存放路径conn.OpenDim sql As Stringsql="update 表名 set name='"& Text1.text &"',sex='"& Text2.text &"',phone='"& Text3.text &"'"rs.open sql,conn,3,3rs.Closeconn.CloseText1是姓名文本框，Text2是性别文本框，Text3是电话号码文本框。要注意我写的电话号码是字符型的。希望能帮到你。最好不要插入，更新比较好。
2. vb操作数据库实例
VB使用ADO数据库可以分为有源数据库和无源数据库，即是否使用了DSN数据源，如下例：1、在连接数据库前首先要在VB菜单中“工程”-“引用”从中选择 microsoft activeX Data objects 2。6 library和 microsoft activeX Data objects recordset 2。
6两个组件，这是在连接数据前所必做的工作。2、接下来定义ADO的连接对象，如下所示：Set conn = New ADODB。ConnectionSet rs = New ADODB。Recordset第一种方法采用的是无源的数据库连接方法conn。
ConnectionString = "Driver={sql server};server=JSZX3-11;uid=sa;pwd=;database=wzc"conn。ConnectionTimeout = 30conn。
Openrs。Open "select 用户名,密码 from login where 用户名='" & Trim(Combo1。Text) & "' And 密码='" & Trim(Text1。
Text) & "'", conn, adOpenStatic, adLockReadOnly, adCmdTextIf rs。EOF = True And rs。BOF Thenm = MsgBox("请重新登录", vbExclamation)Text1。
Text = ""Text1。SetFocusElseForm1。HideEnd Ifrs。Close这是第二种方法连接数据库的方法，这一种方法是采用有源的方法与数据库连接的方法，代码如下所示：Set conn = New ADODB。
ConnectionSet rs = New ADODB。Recordsetconn。ConnectionString = "DSN=login;uid=sa;pwd=;"conn。ConnectionTimeout = 30conn。
Openrs。Open "select 用户名 from login", conn, adOpenStatic, adLockReadOnly, adCmdTextDim i As StringFor t = 0 To Val(rs。
RecordCount) - 1i = Trim(rs。Fields("用户名")。Value)rs。MoveNextCombo1。AddItem iNext trs。Close下面是连接数据库具体代码：Public conn As New ADODB。
Connection Public rs As New ADODB。Recordset Public addFlag As Boolean Public Function OpenCn() As Boolean Dim mag As String On Error GoTo strerrmag Set conn = New ADODB。
Connection conn。ConnectionTimeout = 25 conn。Provider = "sqloledb" conn。Properties("data source")。Value = "127。
0。0。1" ''服务器的名字 conn。Properties("initial catalog")。Value = "chart" ''库名 conn。Properties("integrated security")。
Value = "SSPI" ''登陆类型 conn。Open OpenCn = True addFlag = True Exit Function strerrmag: mag = "Data can''t connect" Call MsgBox(mag, vbOKCancel, "Error:Data connect") addFlag = False End End Function Public Sub clocn() On Error Resume Next If conn。
State adStateClosed Then rs。Clone Set rs = Nothing。
3. vbs实例
比如，用VB新建个ActiveXDLL，工程名改为firstprj，类名改为firstclass，类模块代码如下：
publicnum1asvariantpublicnum2asvariantpublicfunctionadd(num1,num2)asvariantadd=num1+num2endfunction生成firstprj.dll后注册到计算机，就可以调用该dll创建实例了，比如：dimresultasvariantsetx=createobject("firstprj.firstclass"
)result=x.add(1,5)printresult至于要让VB不能调用该DLL就不知道怎么实现了。。
4. vb做数据库
先分析进销存的流程.先从基本信息开始(商品，仓库,供应商，客户等。)做编码。然后采购入库，销售，库存盘点。查询统计
5. vb数据库开发
如果此程序只是为数据系统而服务的话，我本人建议你使用VFP，因为它本是一个专为要求保密性不高的数据库的开发软件（如：图书馆管理程序）。
因为VB还需调用ODBC来完成读取数据库文件，而它本身就有自己专门的数据库格式文件（*.dbf,*.dbc）。
还有如果你建立了数据库后可用向导来自动生成表单界面来制作程序。
这个值得试试^_^
6. vb与数据库实例的区别
VB中的对象是一个类的实例化,通常是指现实中的东西抽象为一个方法和属性的集合.
7. vb 实例
move方法用法移动窗体和控件，可改变其大小步骤：Move 方法示例本示例使用 Move 方法在屏幕上移动一个窗体。
8. vb和sql数据库开发实例
PublicFunctionConnectString()_AsStringConnectString="FileDSN=info.dsn;UID=sa;PWD=23"'连接字符器，改成你自己的EndFunctionPublicFunctionExecuteSQL(ByValSQL_AsString,MsgStringAsString)_AsADODB.Recordset'这里是执行SQL语句，你只需要调用这个方法，把SQL查询语句参数传进来，最后返回一个RecordsetDimcnnAsADODB.ConnectionDimrstAsADODB.RecordsetDimsTokens()AsStringOnErrorGoToExecuteSQL_ErrorsTokens=Split(SQL)Setcnn=NewADODB.Connectioncnn.OpenConnectStringIfInStr("INSERT,DELETE,UPDATE",_UCase$(sTokens(0))
)Thencnn.ExecuteSQLMsgString=sTokens(0)&_"querysuccessful"ElseSetrst=NewADODB.Recordsetrst.OpenTrim$(SQL),cnn,_adOpenKeyset,_adLockOptimistic'rst.MoveLast'getRecordCountSetExecuteSQL=rstMsgString="查询到"&rst.RecordCount&_"条记录"EndIfExecuteSQL_Exit:Setrst=NothingSetcnn=NothingExitFunctionExecuteSQL_Error:MsgString="查询错误:"&_Err.DescriptionResumeExecuteSQL_ExitEndFunctionPublicFunctionTesttxt(txtAsString)AsBooleanIfTrim(txt)=""ThenTesttxt=FalseElseTesttxt=TrueEndIfEndFunction
9. vb操作数据库
1、Access中新建数据库，名字为Database1.mdb。（注意：后缀为MDB,如果Access是2007版本的，保存时应另存为03版本的才可以，因为，VB无法直接支持07版的accdb后缀格式）
2、成功建立数据库后会进入到数据表界面，这时就能输入数据了，输完以后按CTRL+S保存，输入表名，这里表名为test，准备工作这样就完成了。
3、把VB打开，然后新建标准exe。
4、在菜单里面找到工程→部件→勾选 ，Microsoft ADO Data Control 6.0 Microsoft Hierarchical Flexgrid Control 6.0勾选之后左侧的工具栏里就多出两个控件，就是 ADODC控件和MSHFlexGrid控件。
5、选择 ADODC控件和MSHFlexGrid控件，在窗体的合适位置放入，如图：
6、设置ADODC控件的属性：右键窗体中ADODC1控件
ADODC属性页→通用→选择使用连接字符串→点击生成→选择Microsoft Jet 4.0 OLE DB Provider 点击下一步→选择之前准备好的数据库→点击测试连接，显示测试成功则ok，确定。
ADODC属性页→记录源→命令类型选择2-adcmdtable，表或存储过程名称选择之前建立的数据表test，点击确定，ADODC属性设置完成。
7、设置MSHFlexGrid控件的属性：VB右侧的属性表里，找到datasource，选择adodc1。
8、测试效果：菜单→运行→启动（F5)，发现显示的数据排列不是我们想要的行数和列数修改方法：
MSHFlexGrid属性→通用→设置行和列，固定行和固定列，设置如图。
MSHFlexGrid属性→带区→把列标题的√取消掉，设置如图。
9、修改之后测试效果如下：
- 相关评论
- 我要评论
-
