Just nu i M3-nätverket
Gå till innehåll

Får inte sql-frågor att fungera


Falken110

Rekommendera Poster

Hej

 

Jag har programerat en hel del VBA men aldrig någon VB. Nu ska jag försöka mig på lite VB och har laddat ner Visual Studio 2008. Har faktiskt lyckats att få ett program (ett väldigt litet) att fungera. Kul, men om jag ska kunna göra det jag tänkt mig så måste jag kunna använda en databas så jag försökte med access.

 

Det mesta verkar fungera men när det kommer till raden ".Source = strQuery" så protesterar programmet och meddelar "Parametrarna är felaktiga, ligger utanför tillåtet intervall eller skapar en inbördes konflikt." Vad kan detta bero på?

 

Tack på förhand

 

Private Sub Button1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button1.Click
       Dim Conn As ADODB.Connection  'Connection
       Dim Rs As ADODB.Recordset     'Recordset
       Dim strQuery As String        'Command

       Conn = New ADODB.Connection
       With Conn

           Conn.Provider = "Microsoft.ACE.OLEDB.12.0"
           .CursorLocation = ADODB.CursorLocationEnum.adUseClient
           .Open("C:\Users\my\Documents\db.accdb", "", "")
       End With

       strQuery = "SELECT * FROM kunder"

       Rs = New ADODB.Recordset
       With Rs
           .ActiveConnection = Conn
           .CursorType = ADODB.CursorTypeEnum.adOpenForwardOnly
           .Source = strQuery
           .Open()
       End With

       Rs.Close()
       Rs = Nothing
       Conn.Close()
       Conn = Nothing

       Me.TextBox1.Text = "FDEFD"
   End Sub

Länk till kommentar
Dela på andra webbplatser

Arkiverat

Det här ämnet är nu arkiverat och är stängt för ytterligare svar.

×
×
  • Skapa nytt...