Connect to MS SQL over nettet og list data

Du må lige bestemme hvilken database du vil connecte til. I det andet spørgsmål skriver du MySQL og her MSSQL :)

Det bliver msSQL ;)

Ikke mig der har oprettet det andet spørgsmål :). Men mon ikke koden virker, lige meget om det er msSQL eller mySQL?

Den som løser spørgsmålet hurtigt får 2x 200 point.

Prøv at se på de to her..

  strUser = "sa"
  strPass = "e20zulu"
  strHost = "127.0.0.1"
  strBase = "??"

  'MySQL
  strConn = "DRIVER={MySQL ODBC 3.51 Driver};" _
            & "SERVER=" & strHost & ";" _
            & "DATABASE=" & strBase & ";" _
            & "UID=" & strUser & ";" _
            & "PWD=" & strPass & ";"

  'MS SQL
  strConn = "Provider=SQLOLEDB.1" & _
            ";user id=" & strUser & _
            ";pwd=" & strPass & _
            ";Initial Catalog=" & strBase & _
            ";server=" & strHost & ";"

Option Explicit

Private objConn As Object
Private objRs  As Object

Public Function MySQL(ByVal strHost As String, _
                      ByVal strBase As String, _
                      ByVal strUser As String, _
                      ByVal strPass As String, _
                      ByVal strBruger As String, _
                      ByVal strAdgang As String) As Boolean
Dim strSQL As String
Dim strConn As String
 
  strUser = "sa"
  strPass = "e20zulu"
  strHost = "127.0.0.1"
  strBase = "test"

  strConn = "Provider=SQLOLEDB.1" & _
            ";user id=" & strUser & _
            ";pwd=" & strPass & _
            ";Initial Catalog=" & strBase & _
            ";server=" & strHost & ";"

  'Her skal du lige selv ænder til din egen sql-string.
  strSQL = "SELECT * FROM test"

    With objConn
        .CommandTimeout = 30
        .ConnectionTimeout = 15
        .ConnectionString = strConn
        .Open
        Set objRs = .Execute(strSQL)


        .Close
    End With
End Function

Private Sub Form_Load()
  Set objConn = CreateObject("ADODB.Connection")
  Set objRs = CreateObject("ADODB.RecordSet")

  'Husk at ænder HOST, DATABASE, USER og PASS til din SQL-Server _
  Bruger og Adgang er de navne du tjekker..
  Me.Caption = MySQL("80.63.222.138", _
                    "test", _
                    "sa", _
                    "e20zulu", _
                    "", _
                    "")
End Sub

Private Sub Form_Unload(Cancel As Integer)
  Set objConn = Nothing
  Set objRs = Nothing
End Sub



:) Den skriver "false" i formen's caption.

Men den starter - det er altid noget :)

Har ændret strHost = "127.0.0.1" til strHost = "80.63.222.138", da det er min servers IP

c'mon mennesker :). 400 point på spil

sjh - jeg løste det :). Ved hjælp af din kommentar - og terry's link fra en anden post. Lav svar, så får du 200 point - samme gælder terry i det andet topic.

Public Function ConnectToSQLServer()
Dim cn As Object
Dim rs  As Object
Dim strSQL As String
Dim strConn As String
 
 
    Set cn = CreateObject("ADODB.Connection")
    Set rs = CreateObject("ADODB.RecordSet")
   
    strConn = "DRIVER=SQL server;" _
            & "SERVER=TJNOTEBOOK;" _
            & "DATABASE=CIAO 2004SQL;" _
            & "UID=sa;" _
            & "PWD=;"

  'Her skal du lige selv ænder til din egen sql-string.
  strSQL = "SELECT * From Bookingplan"

    With cn
        .CommandTimeout = 30
        .ConnectionTimeout = 15
        .ConnectionString = strConn
        .Open
        Set rs = .Execute(strSQL)
        MsgBox rs!ProduktID
    End With
End Function

ah, too late :o(

Bortset fra det, så må du ikke give mere end 200 point for et spm.

Min kode skulle også lige tilpasses dine egne data:

Public Function ConnectToSQLServer()
Dim cn As Object
Dim rs  As Object
Dim strSQL As String
Dim strConn As String
 
 
    Set cn = CreateObject("ADODB.Connection")
    Set rs = CreateObject("ADODB.RecordSet")
   
    strConn = "DRIVER=SQL server;" _
            & "SERVER=DinServer;" _
            & "DATABASE=DinDatabase;" _
            & "UID=sa;" _
            & "PWD=e20zulu;"

  'Her skal du lige selv ænder til din egen sql-string.
  strSQL = "SELECT testcolumn From Test"

    With cn
        .CommandTimeout = 30
        .ConnectionTimeout = 15
        .ConnectionString = strConn
        .Open
        Set rs = .Execute(strSQL)
        MsgBox rs!testcolumn
    End With
End Function

er dette spm færdigt?

Ja spg er færdigt :). Venter på Terry giver svar.

Undskyld mener Sjh

<:o) Godt nytår.. Pas nu på fingerne i skal jo bruge dem til programmering..

;)