Skriv til msSQL

Option Explicit

Private objConn As Object
Private objRs  As Object
Public Function MsSQL(ByVal strHost As String, _
                      ByVal strBase As String, _
                      ByVal strUser As String, _
                      ByVal strPass As String, _
                      ByVal strBruger As String, _
                      ByVal strSQL As String, _
                      ByVal strAdgang As String) As Boolean

Dim strConn As String
 
  strUser = "sa"
  strPass = "******"
  strHost = "80.63.222.138"
  strBase = "chat"

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


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



    End With
End Function



Private Sub cmdtochat_Click()

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 = MsSQL("80.63.222.138", _
                    "chat", _
                    "sa", _
                    "******", _
                    "", _
                    "SELECT * FROM message", _
                    "")
   

objRs.addnew
   
    objRs("message") = txttochat.Text
   
   
objRs.Update

End Sub
----------------------------------


objRs.addnew
   
    objRs("message") = txttochat.Text
   
   
objRs.Update

Virker naturligvis ikke, da databasen åbnes uden rettigheder til at ændre i den. Man kan godt få data ud af databasen, f.eks.

label1.caption = objRs("message")

Men ikke

objRs("message") = label1.caption

Nogen gode svar?