vb操作sql数据库的典型例子
本程序有一菜单开始，里面有查询，删除，修改，添加，程序不一一列出，只写出基本的过程，连接数据库采用标准模块：
'Public publicstr As String
Public conn As ADODB.Connection
Public rs As ADODB.Recordset
Public Sub main() '数据库连接共享函数
Set conn = New ADODB.Connection
conn.Open "Provider=MSDASQL.1;Persist Security Info=False;User ID=sa;Data Source=plgl;Initial Catalog=plgl"
'publicstr = "Provider=MSDASQL.1;Persist Security Info=False;User ID=sa;Data Source=plgl;Initial Catalog=plgl" '共享连接字符串
main_pfm.Show
End Sub
添加程序：
Set rs = New ADODB.Recordset
If Trim(Text1(0).Text) = "" Then
smeg = "配方号不能为空！！！"
MsgBox smeg, vbOKCancel + vbExclamation, "警告"
Text1(0).SetFocus
Else
If Not IsNumeric(Text1(0).Text) Then
smeg = "A添加剂非数字！！！"
MsgBox smeg, vbOKCancel + vbExclamation, "警告"
Text1(0).Text = ""
Text1(0).SetFocus
Else
If Trim(Text1(1).Text) = "" Then
smeg = "配方名称不能为空！！！"
MsgBox smeg, vbOKCancel + vbExclamation, "警告"
Text1(1).SetFocus
Else
If Trim(Text1(2).Text) = "" Then
smeg = "A添加剂不能为空！！！"
MsgBox smeg, vbOKCancel + vbExclamation, "警告"
Text1(2).SetFocus
Else
If Not IsNumeric(Text1(2).Text) Then
&n
相关文档：
通过调用CreateDataSetfromXml取得XML数据
Imports System.Xml
Public Const FILE_CONFIG = "MZZ.xml"
Public Const PATH_CONFIG = "\XML\"
Dim dstXML As DataSet
Dim tblXML_DB As DataTable
Dim dtCod As New DataTable
Dim strSQL As String = ""
clsPublic ......
Option Explicit
Private rsMain As ADODB.Recordset
Private rsTerm As ADODB.Recordset
Private strSql As String
Private Sub cmdAbout_Click()
frmAbout.Show
End Sub
Private Sub cmdAddObject_Click() '程序段
......
转自：http://www.52arm.com/Article_Show.asp?ArticleID=186
作者：weidian ---本站原创 点击数：4721 发表时间：2008-5-7 编辑：sanzang
Winsock控件建立在TCP、UDP协议的基础上，完成与远程计算机的 ......
文章来源:vb大世界 作者：王国荣
「VB 没有提供这样的功能， 必须呼叫 Windows API」， 当笔者这样回答读者之後，有些读者会要求笔者介绍 Windows API 方面的书籍， 尤其是中文书， 但实际上，目前市面上只看到一本原文书(ZD Press 出版的 Visual Basic 5.0 Programming Guide to Win32 API)， 中文书则未见过， 为什麽没� ......
使用c#语言在.net平台生成的dll是基于MSIL的二进制代码，通常情况下是无法被native的语言和程序调用的（例如vb，vc，delphi）。但是一般来说windows上native的程序都是可以直接使用com对象的。通过.net平台提供的一些工具，可以为其伪造一个com接口并注册到系统中。此时，可以在native的程序里，通过这个伪com接口来实现此. ......
