Connection til SQL server Fra : icebobo Vist : 432 gange 100 point Dato : 04-06-07 18:24

Hejsa Jeg sidder i øjeblikket og coder et program hvor jeg har brug for at sende/hente login oplysninger fra en SQL server over internettet. Er der nogle der ligger inde med færdig code til dette og gerne så simpelt som muligt :)

Kommentar Fra : buch78 Dato : 04-06-07 20:46

Du skriver ikke hvilken program du vil hente og sende med.. her er fx. fra PHP/perl script til en mysql http://www.modwest.com/help/kb6-60.html

Kommentar Fra : icebobo Dato : 04-06-07 22:00

Sry min fejl :P Jeg kender ikke så meget til SQL connection i vba så tænkte ikke lige på det. Jeg har set på nogle forskellige mener de kørte med noget adodb eller sådan noget men kunne ikke få dem til at virke ordenligt.

Kommentar Fra : snortop Dato : 05-06-07 06:16

Her er en kode til at forbinde til en MySQL server Kode Private Sub cmdConnectMySQL_Click() Dim cnMySql As New rdoConnection Dim rdoQry As New rdoQuery Dim rdoRS As rdoResultset ' set up a remote data connection ' using the MySQL ODBC driver. ' change the connect string with your username, ' password, server name and the database you ' wish to connect to. cnMySql.CursorDriver = rdUseOdbc cnMySql.Connect = "uid=YourUserName;pwd=YourPassword; server=YourServerName;" & _ "driver={MySQL ODBC 3.51 Driver}; database=YourDataBase;dsn=;" cnMySql.EstablishConnection ' set up a remote data object query ' specifying the SQL statement to run. With rdoQry .Name = "selectUsers" .SQL = "select * from user" .RowsetSize = 1 Set .ActiveConnection = cnMySql Set rdoRS = .OpenResultset( rdOpenKeyset, rdConcurRowVer) End With ' loop through the record set ' processing the records and fields. Do Until rdoRS.EOF With rdoRS ' your code to process the fields ' to access a field called username you would ' reference it like !username rdoRS.MoveNext End With Loop ' close record set ' close connection to the database rdoRS.Close cnMySql.Close End Sub

Kommentar Fra : icebobo Dato : 05-06-07 14:35

Takker men hvilke referencer skal jeg bruge ?

Kommentar Fra : icebobo Dato : 05-06-07 14:38

Jeg har i mellemtiden fundet følgende: Dim Connection As New ADODB.Connection Dim Command As New ADODB.Command Private Sub Command1_Click() Connection.ConnectionString = "driver={SQL Server};server=ServerName;uid=User;pwd=Password;database=Database" Connection.Open Command.ActiveConnection = Connection Connection.Close End Sub Men når jeg prøver at connecte kommer den med fejlen: TDS-Bufferlængden er for stor Nogle der ved hvad der er galt ?

Annuller spørgsmålet Fra : icebobo Dato : 07-06-07 16:15

Jeg har desværre ikke modtaget et gyldigt svar, og annullerer derfor dette spørgsmål

Du har følgende muligheder

Dette spørgsmål er blevet annulleret, det er derfor ikke muligt for at tilføje flere kommentarer.