VB对mysql的SQL增删改查

zhgc

VB调用mysql数据库SP的方法
http://www.nagomes.com/disc/foru ... id=22&fromuid=6

VB对mysql的SQL增删改查
http://www.nagomes.com/disc/foru ... d=109&fromuid=6

zhgc

Public Sub showpver()
Dim strsql As String
Dim RS As Recordset

strsql = "select * from SMT.C_PRODUCT_CONFIG where P_NO = '" & Me.cmbproduct.Text & "'"
Set RS = cn.Execute(strsql)
Me.cmbpver.Clear
Do While Not RS.EOF
    Me.cmbpver.AddItem RS!p_version
    RS.MoveNext
Loop
If Me.cmbpver.ListCount = 1 Then
   Me.cmbpver.Text = Me.cmbpver.List(0)
   showpdesc Me.cmbproduct.Text, Me.cmbpver.Text
Else
   Me.txtpdesc = ""
End If
RS.Close
Set RS = Nothing

End Sub