vb数据库编程100实例,vb经典程序100例
VB编程产生100个0-100之间的随机整数找出其中能被3整除的数，并且按由小到大顺序十个一行排列？
一、要产生1到100之间的随机数，首先了解Rnd函数的用法，Rnd函数产生的是0和1之间的随机数，范围是[0,1)，包括0，但不包括1。因此要产生1~100之间的随机数，可以使用Rnd*98，产生的是[0,98)的随机数，而int(Rnd*98)产生的是[0,97]之间的随机整数，那么int(Rnd*98)+2产生的就是[2,99]之间的随机整数了，符合目标1到100之间的随机数目的。函数代码如下：Public Function sj() As Integer Randomize sj = Int(Rnd * 98) + 2End Function二、举个例子，要产生10个1到100之间的随机整数，如下：1、打开VB6.0开发软件，新建一个标准exe工程；2、在设计界面上添加一个Text控件和一个Command控件；3、Command1控件的Caption属性设置为"产生10个1~100之间的随机数"。4、双击Command1控件，进入代码编辑界面，输入如下代码：Public Function sj() As Integer Randomize sj = Int(Rnd * 98) + 2End FunctionPrivate Sub Command1_Click()Text1.Text = ""For i = 1 To 10 Text1.Text = Text1.Text sj() " "Next iEnd Sub5、运行工程，单击按钮，可以看到Text1控件中产生的10个1~100之间的随机整数。
求一个简单VB数据库编程
好歹先建立符合你实际情况的数据库把，然后各种新建用户，保存用户资料等操作都调用对应sql语句即可实现。
通常在vb6中引用ado2.x，然后就可以使用ado的connection对象和recordset对象实现这些功能。
给你提供一个数据库连接函数
返回true则建立数据库连接，否则未建立
Public Function Connect() As Boolean
On Error GoTo ErrorHandler
Dim SQLServer As ADODB.Connection
Set SQLServer = New ADODB.Connection
'连接字符串
SQLServer.ConnectionString = "Provider=SQLOLEDB.1;Integrated Security=SSPI;User ID=sa;Password =sa;Persist Security Info=False;Initial Catalog=test;Data Source=."
'建立连接
SQLServer.Open
If SQLServer.State = adStateOpen Then
Connect = True
Else
Connect = False
End If
SQLServer.Close
Exit Function
ErrorHandler:
MsgBox Error$
Connect = False
End Function
利用建立好的数据库链接，就可以操作recorset对象。
VB访问数据库（sql sever2000)的实例
1.先在工程---引用里面在可引用的引用中找到microsoft activex data objects 2.8 library和microsoft activex data objects recordset 2.8 library,将其勾选，为写代码做准备
2，在窗体上放一个combo1和command1
3，代码
Private Sub Command1_Click()
Dim conn As New ADODB.Connection
Dim rs As New ADODB.Recordset
Set conn = New ADODB.Connection
Set rs = New ADODB.Recordset
conn.Open "Driver={SQL Server};SERVER=数据库机器ip;DATABASE=student;UID=sa;PWD="
sql = "select sno from std where sn='1111'"
rs.Open sql, conn, 3, 1
While Not rs.EOF
Combo1.AddItem rs("sno")
rs.MoveNext
Wend
Set conn = Nothing
Set rs = Nothing
End Sub
VB 数据库实例
用ADO法（要先引用）
连接：
Dim cn As ADODB.Connection
Set cn=New ADODB.Connection '上两句为声明创建ADO变量（下同）
cn.open "PROVIDER=Microsoft.Jet.OLEDB.4.0;Data Source=X;" 'X为数据库路径(加文件名)
cn.Close '关闭数据库
Set cn=Nothing ‘释放数据
读取：
Dim rs As ADODB.RecordSet
Set rs=New ADODB.RecordSet
rs.Open "select * from X1", cn,X2,X3 'X1为表名，cn就是上面连接的cn（下同），X2为数据库游标类型，X3为数据库锁方式（读取方式）
Do While Not rs.EOF
XXXXX '读取数据至程序的代码，自编
rs.MoveNext ’移动到下一条记录
Loop
……
……
…… '关闭…，释放…
Set rs=Nothing
Set cn=Nothing
剩下的网上搜，大把