|
' ----------------------------------------------------
' Connection IuWFNgμ¬
Set OpenDB = CreateObject("ADODB.Connection")
' ----------------------------------------------------
' Ϊ±Άρμ¬
strConnection = "Provider=SQLOLEDB;Data Source=T[oΌ;"
strConnection = strConnection & "Initial Catalog=DBΌ;"
strConnection = strConnection & "User ID=sa;"
strConnection = strConnection & "Password=;"
' ----------------------------------------------------
' DB Ϊ±
On Error Resume Next
OpenDB.Open strConnection
If Err.Number <> 0 Then
Set OpenDB = Nothing
MsgBox (Err.Description)
Exit Sub
End If
On Error GoTo 0
' ----------------------------------------------------
' Recordset IuWFNgμ¬
Set rs = CreateObject("ADODB.Recordset")
' ----------------------------------------------------
' IπΘΪκ SQL Άρμ¬
SqlQuery = "select * from e[uΌ order by ΌΜ"
rs.Open SqlQuery, OpenDB
nIdx = 0
Do While Not rs.EOF
Me.Refresh
Combo2.AddItem (rs.Fields("ΌΜ").Value)
Combo2.ItemData(nIdx) = rs.Fields("R[h").Value
nIdx = nIdx + 1
' f[^ΜΗέ
rs.MoveNext
Loop
rs.Close
Set rs = Nothing
OpenDB.Close
Set OpenDB = Nothing
| |