標題: [發問] VB2008 連結 SQL2005 連線問題 [打印本頁]

---

作者: 暗黑    時間: 2010-7-1 10:40     標題: 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 15:38

="= 試出來了
strCMn = "Server=" & SPC_SQLAdderss & ";database=" & SPC_SQLName & ";User Id=" & SPC_SQLID & "assword=" & SPC_SQLPass & ";"

要這樣寫

---

歡迎光臨 麻辣家族討論版版 (http://forum.twbts.com/)