EFU0387的专栏

1、VB6连接SQLSERVER2014： Dim Con As New ADODB.Connection Dim Rs As New ADODB.Recordset Private Sub Form_Load()     Con.ConnectionString = "Driver={sql server};server=192.168.1.104;uid=sa;pwd=;d

1、提取的数据库结构 Con.ConnectionString = "Driver={sql server};server=192.168.1.112;uid=sa;pwd=;database=db_2008" Con.Open Set Rs = Con.OpenSchema(20) Set MS1.DataSource = Rs

1、combobox通过additem增加候选项 2、批量将字段加入combobox的方法是：     For i = 0 To 9         Combo1.AddItem Rs.Fields(i).Name     Next 3、按条件查询搜索 Private Sub Command1_Click() Adodc1.RecordSource = "select * f

 Dim Sqldatabaseip$, Sqldatabaseuid$, Sqldatabasepwd$, Sqldatabase$ Sqldatabaseip = "192.168.1.112" Sqldatabaseuid = "sa" Sqldatabasepwd = "" Sqldatabase = "db_2008" Con.ConnectionString = "Dr

Con.Execute ("delete from test where ascii_id=" & Text2)

 Con.Execute ("insert into test values(" & Text2 & ",'" & Text3 & "')") 注意： 1、text2对应的是数字型数据，所以不需要加单引号； 2、text3对应的是文本值，在SQL里录入时是要加单引号的，如insert into test values(2,'a')。所以在对应的VB表达式里就要多加一个单引号括起

 1、引用：ado2.6 2、部件：Microsoft DataGrid Control 6.0 3、部件：Microsoft ADO Data Control 6.0 Private Sub Form_Load()     Adodc1.ConnectionString = "Driver={sql server};server=192.168.1.112;uid=

Dim Con As New ADODB.Connection Dim Rs As New ADODB.Recordset Dim i% Private Sub Form_Load() Con.ConnectionString = "Driver={sql server};server=wjpc;uid=sa;pwd=;database=db_2008" Con.Open Rs

以textbox为例： 在VB6中以textbox(i)在表示 在VBA中以Me.Controls("TextBox" & 1).Object.Text       或                   Me.OLEObjects("TextBox" & 1).Object.Text 表示

注意点如下： 1、{sql server}中间要加空格，这个地方卡了很久； 2、textmatrix.0代表标题行3 3、MS1.cols要比rs.fields.count多一列，因为左边有一列是序号列，不过经测试，用MS1.TextMatrix(0, n - 1) = Rs.Fields(n - 1).Name和MS1.TextMatrix(j, i - 1) = Rs.Field

Private Sub Form1_KeyPress(sender As Object, e As KeyPressEventArgs) Handles MyBase.KeyPress         If Asc(e.KeyChar) = 27 Then             Me.Close()         End If     End Sub