EFU0387的专栏

1、VB6连接SQLSERVER2014：Dim Con As New ADODB.ConnectionDim Rs As New ADODB.RecordsetPrivate 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.OpenSet Rs = Con.OpenSchema(20)Set MS1.DataSource = Rs

1、combobox通过additem增加候选项2、批量将字段加入combobox的方法是：    For i = 0 To 9        Combo1.AddItem Rs.Fields(i).Name    Next3、按条件查询搜索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.62、部件：Microsoft DataGrid Control 6.03、部件：Microsoft ADO Data Control 6.0Private Sub Form_Load()    Adodc1.ConnectionString = "Driver={sql server};server=192.168.1.112;uid=

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

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

注意点如下：1、{sql server}中间要加空格，这个地方卡了很久；2、textmatrix.0代表标题行33、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