在vb6.0中
mshflexgrid控件里有N条纪录，
RT:
序号 料号 数量 组
1 123455 1.2000 01
2 343585 1.0003 05
3 351351 2.0000 06
4 687486 3.0000 07
5 988754 4.0000 07
6 874845 2.2222 09
....
全部的料号都不相� ......
Option Explicit
Public conn As New ADODB.Connection
Public Rs As New ADODB.Recordset
'Public Cnt As Integer '这个Cnt是用来表示数据库数据总量的，对链接过程无关
Public Sub connect()
'连接数据库的代码段
Set conn = New ADODB.Connection
Set Rs = New ADODB.Recordset
&nb ......
Public a As String
Private Sub Command1_Click()
a = Text1.Text
End Sub
例如 text1中输入 127.0.0.1 xxx.xxx.xxx.xxx
Private Sub Form_Load()
Adodc1.ConnectionString = "provider=sqloledb; data source=xxx.xxx.xxx.xxx;initial catalog=student1;user id=sa;password=sa;"
A ......
Set cn = New ADODB.Connection
cn.Open "provider=Microsoft.jet.OLEDB.4.0;data source=" & App.Path & "\member.mdb"
Set rs = New ADODB.Recordset
rs.Open "select * from attendance1 where 学号 like '" & Text9.Text & &q ......
1、随机生成1-100的十个数，并且将他们打印出来。代码如下：
Private Sub Form_Click()
Dim a(10) As Integer
Dim i As Integer
For i = 0 To 9
a(i) = Int(100 * Rnd(i)) + 1
Print a(i)
Next i
End Sub
这个时候输出的结果是正确的，但是For-Next使用DO-WHILE来代替的时候，输出的十个数全� ......
在vb的文件菜单有一个生成.exe的功能，但是这样生成的可执行文件必须要求使用者装有vb，并且再加载所需的控件等等，非常繁琐。
有没有功能可以实现就像平时我们购买和下载的软件，直接点击安装包就会把需要的东西全部安好。要不用户还得装vb，加载很多控件，再拷贝数据库图片等等。
希望大家给与意见，会尽快结贴给分。
......
最新文章 :