- 帖子
- 62
- 主題
- 10
- 精華
- 0
- 積分
- 253
- 點名
- 0
- 作業系統
- xp , win7
- 軟體版本
- office2003
- 閱讀權限
- 20
- 性別
- 男
- 來自
- 人心
- 註冊時間
- 2010-5-21
- 最後登錄
- 2012-8-3
|
[發問] VB2008 連結 SQL2005 連線問題
請教各位大大
我目前在學習VB2008 連線 SQL2005
問題：當程式段執行到 SQLconntion.open 時，執行很久後(以sql連線時間)，就直接開出表單來，可是SQLconntion.open 後，應該要執行sqlreader，請問各位大大問題出在那啊
使用元件：下拉清單(combobox)
ps:vb6 跟vb2008真的差太多了，我完全不知道問題出在那 , 請各位先進指導)
程式碼：
Imports System.Data
Imports System.Data.OleDb
Imports System.Data.SqlClient
Module Module1
Public SPC_SQLPass$, SPC_SQLID$, SPC_SQLName$, SPC_SQLAdderss$
Public IQC_SQLPass$, IQC_SQLID$, IQC_SQLName$, IQC_SQLAdderss$
Sub Load_main()
Dim theCON As SqlConnection
SPC_SQLPass = "samis"
SPC_SQLID = "sa"
SPC_SQLName = "Spc-Iqc"
'SPC_SQLAdderss = "192-168-100-199\SQLEXPRESS"
SPC_SQLAdderss = "Localhost"
'連結資料庫*************************************************************************************************************************************
Dim ConnStr As String
ConnStr = "Server=" & IQC_SQLAdderss & " ;Database=" & SPC_SQLName & " ;UID=" & IQC_SQLID & "  WD=" & IQC_SQLPass
' Server=Localhost 代表本機
theCON = New SqlConnection(ConnStr)
'************************************************************************************************************************************************
'資料庫查詢*************************************************************************************************************************************
Dim theCOMM As SqlCommand
Dim theRST As SqlDataReader
Dim mApp As String, mApp1 As String, mApp2 As String, mApp3 As String
Dim strCMn As String
mApp = "查詢欄位"
mApp1 = "類別"
mApp2 = ""
mApp3 = "*"
strCMn = "Select " & mApp3 & " From " & mApp & " " & mApp2 '這裡給于SQL敘述
theCOMM = New SqlCommand(strCMn, theCON)
'************************************************************************************************************************************************
'資料庫Link Run**********************************************************************************************************************************
theCON.Open()
theRST = theCOMM.ExecuteReader()
'************************************************************************************************************************************************
If theRST.FieldCount > 0 Then
Form1.ComboBox1.DataSource = theRST.Item(0)
Else
'找不到資料
End If
'資料庫Link Close********************************************************************************************************************************
theRST.Close()
theCON.Close()
'************************************************************************************************************************************************
End Sub
End Module |
|
發表於 2010-7-1 10:40
| 
