Code นี้เป็นการดึงชื่อตารางที่เก็บอยู่ใน Database SQL Server ออกมาใส่ combo box ชื่อ ComboT ครับ คำถามไม่ยากเลยพอช่วยได้หวังว่าคนเป็นประโยชน์บ้าง Public Sub Reader_TablesName() Dim con As New SqlConnection(strCon) Dim com As SqlCommand Try Dim sql As String = "SELECT * FROM INFORMATION_SCHEMA.TABLES" con.Open() com = New SqlCommand(sql, con) com.CommandTimeout = 300 dr = com.ExecuteReader() If dr.HasRows Then While dr.Read() ComboT.Items.Add(CStr(dr("TABLE_NAME"))) End While End If Catch ex As Exception MessageBox.Show(ex.Message, "คำสั่งผิดพลาด Reader_TablesName", MessageBoxButtons.OK, MessageBoxIcon.[Error]) Finally dr.Close() con.Close() If ComboT.Items.Count > 0 Then ComboT.SelectedIndex = 0 End If End Try End Sub
Private Sub Combo2_KeyDown(KeyCode As Integer, Shift As Integer) Set RS = New ADODB.Recordset RS.Open "select * from Table2 where SN = '" & Combo2.Text & "'", cn, adOpenKeyset, adLockOptimistic If Not RS.EOF Then Me.Combo1.Text = RS!Device End If RS.Close Set RS = Nothing End Sub
New Article
อัตราค่าโฆษณา
กระทู้ #2931 [.NET] (จาก IP: 119.42.76.134)
ความคิดเห็น #27976 (จาก IP: 119.42.76.134)
