|
TwojePC.pl © 2001 - 2026
|
 |
A R C H I W A L N A W I A D O M O Ś Ć |
 |
| |
|
Pomoc z VisualBasica potrzebna , michol 12/09/04 21:22
Chodzi o to, że mam baze danych w SQL'u (bardzo prosta baza- biblioteka) i chę ją podpiąć pod VB. Czyli interfejs graficzny- podłączenie/rozłączenie bazy, dodanie klienta, wyszukanie książki, dodanie książki do bazy...
Interfejs mam zrobiony, tylko nie wiem jak zrobić, żeby po kliknięciu na przycisk np DODAJ program dopisał do bazy co trzeba i gdzie trzeba. Ktoś mógłby mi pomóc?- prosze bardzo... , xmac 12/09/04 22:31
Dim adoConnection As ADODB.Connection
Dim adoRecordset As ADODB.Recordset
Dim strSelect As String
strSelect = "SELECT..."
If adoConnection Is Nothing Then
Set adoConnection = New ADODB.Connection
End If
If adoConnection.State <> adStateOpen Then
If strConnectionType = "WINDOWS" Then
adoConnection.ConnectionString = "Provider=SQLOLEDB.1;" + _
"Integrated Security=SSPI;" + _
"Persist Security Info=False;" + _
"Initial Catalog=" nazwa bazy;" + _
"Data Source=" server")
ElseIf strConnectionType = "SQLSERVER" Then
adoConnection.ConnectionString = "DSN= dns;UID= user;PWD=pass")
Else
Err.Raise 1, "ConnectToDB", "Błędnie zdefiniowany typ uwierzytelniania bazy danych."
End If
adoConnection.Open
If Not adoConnection.State = adStateOpen Then Err.Raise 1, "ConnectToDB", "Błąd podłączenia do bazy danych."
End If
If adoRecordset Is Nothing Then
Set adoRecordset = New ADODB.Recordset
End If
With adoRecordset
.Open strSelect, adoConnection, adOpenStatic
If Not .EOF And Not .BOF Then
strTemplateLines(UBound(strTemplateLines)) = strTemplateLines(UBound(strTemplateLines)) + adoRecordset.Fields(0).Value
End If
.Close
End With
Set adoConnection = Nothing
Set adoRecordset = Nothing
wycialem to z jednego progsa, moze jest troche niejasne, ale powinno dac ci pojecie
ogolnie, to poszukaj w helpie i na msdn, a znajdziesz wszystkie potrzebne informacjedual&mobile power
XMAC
|
|
|
|
 |
All rights reserved ® Copyright and Design 2001-2026, TwojePC.PL |
 |
|
|
|
