Office: SQL Zugriff

nfs5 · 27. November 2005

Hallo,

ich möchte Daten von SQL Server überprüfen.
Gebe was in Excel ein und wenn es diesen eintrag in der Tabelle gibt dann ist gut , sonst soll er erstellt werden...
Aber ich möchte jetzt nur mal den anfang wissen...
Wie stelle ich eine Verbindung zum SQL Server her und frage dann ab?
Ich weis nur das es was mit ADODB oder so ist..

Helft mir bitte auf die Sprünge , wie ich das machen sol..

THX

:)

Lumpensammler · 28. November 2005

Hallo, nfs5,

möglicherweise kann Dir der Hinweis auf Datenbank-Workshops helfen.

Gruß
LS

nfs5 · 29. November 2005

Das kann mir nicht wirklich weiterhelfen.
Ich möchte gerne auf einen SQL Server zugreifen und dann die Tabelle "Test" auslesen.
Wenn der ausgewählte Inhalt in Test steht ist OK, ansonsten soll er was machen...
Aber das ist ja eher egal..
Ich möchte nun mal soweit kommen, das ich was in eine Tabelle schrieben kann bzw. abrufen.

lg

Unimatrix Zero · 29. November 2005

Hallo nfs5,

hier mal ein Beispiel wie man sowas verwirklichen könnte:
(Verweis auf eine Microsoft ActiveX Data Objects 2.x Library erforderlich)
Code:

Function Datenverbindung(Server As String, DatabaseName As String, UserId As String, Password As String) As Connection

Dim sConnectionString As String
Dim ocn As New Connection

sConnectionString = "Provider=SQLOLEDB.1;Driver=SQL Server;" & _
"Server=" & Server & ";Database=" & DatabaseName & ";UID=" & UserId & _
";PWD=" & Password
ocn.ConnectionString = sConnectionString
'hier können noch die verschiedensten Einstellungen getroffen werden,
'soll nur als Beispiel dienen
ocn.CursorLocation = adUseClient
ocn.ConnectionTimeout = 60
ocn.CommandTimeout = 60
ocn.Mode = adModeReadWrite
On Error Resume Next
ocn.Open
If Err Then
MsgBox "Verbindung konnte nicht hergestellt werden!", vbCritical, "Bad News"
Exit Function
End If
Set Datenverbindung = ocn

End Function

Sub VerbindungHerstellen()

Dim sUserId As String, sDataBase As String, sServer As String, sPassWord As String
Dim ocn As Connection
Dim orec As New Recordset
Dim sCommand As String

sServer = "IP oder Name des SQL-Servers"
sDataBase = "Dein Datenbankname"
sUserId = "Deine UserId"
sPassWord = "Das geheime Passwort"

Set ocn = Datenverbindung(sServer, sDataBase, sUserId, sPassWord)

If Not ocn Is Nothing Then
MsgBox ocn.State, vbInformation, "Good News"
sCommand = "Select * From DeineTabelle"
With orec
.Source = sCommand
.ActiveConnection = ocn
.CursorLocation = adUseClient
.CursorType = adOpenDynamic
.LockType = adLockOptimistic
.Open
End With
While orec.EOF = False
MsgBox orec.AbsolutePosition, vbInformation, "Position"
orec.MoveNext
Wend
End If

ocn.Close

End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

nfs5 · 30. November 2005

Danke, das hat mir sehr geholfen..

Nun hab ich noch ein Problem.
Wie kann ich eine Kombobox mit den Inhalt der Tabelle befüllen.
Ich möchte die Daten in die cbx einlesen.

Unimatrix Zero · 30. November 2005

Hi nfs5,

bei einer "normalen" Combobox mit der AddItem Methode, also in dem Du einfach
beispielsweise folgenden Code oben einfügst:
Code:

While orec.EOF = False
MsgBox orec.AbsolutePosition, vbInformation, "Position"
ComboBox1.AddItem orec!DeinSpaltenName
orec.MoveNext
Wend
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Du kannst aber auch eine DataComboBox verwenden, siehe hier:
http://www.ms-office-forum.net/forum...p/t-61458.html
http://www.ms-office-forum.net/forum...p/t-61403.html

nfs5 · 30. November 2005

Hab es so ähnlich gemacht.. Habe den Beitrag erste jetzt gelesen.
Habe addItem und halt einen string angegeben der das field immer hat...
und das keiner doppelt vorkommt lasse ich vorher immer die combobox löschen.. mit
cbxName.Clear

Danke und bis zum nächsten mal...

*g*

nfs5 · 1. Dezember 2005

Leider kann ich meinen Post nicht Editieren..
Ich habe eine Spalte in der Tabelle (SQL Datenbank) die Zahlen beinhaltet ..
001, 002, 003...
Aber die sind nie richtig geordnet..
Nun will ich letzt Zahl +1 haben...
Wie mach ich das, das ich die höchste Zahl heruasbekomme..

mfg

Unimatrix Zero · 1. Dezember 2005

Hi nfs5,

mit der "max" Function von SQL:
Code:

select max(Spalte) as MaxNumber from [Tabelle]
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Office: SQL Zugriff

SQL Zugriff

SQL Zugriff

SQL Zugriff

SQL Zugriff

SQL Zugriff - Similar Threads - SQL Zugriff

Benötige Hilfe bei SQL-Befehl

SQL: Filtern mit mehreren Werten aus einer Excelspalte (Liste)

SQL-Abfrage mit where

Apostroph in sql Recordset

Zugriff auf verknüpfte SQL Server Tabelle

Zugriff von Access auf SM-SQL Datenbank-Tabellen mit einem >64 Char-Namen

Datumsformat bei Zugriff auf SQL Server 2008 via ODBC