Wprowadzenie danych przez VBS

0

Witajcie.
Mam prośbę, możecie mi podrzucić jakiś wzór skryptu w VBS , który by umieszczał dane w bazie SQL??

P.S Jeśli zły dział to proszę o przeniesienie :)

0

Niby jest, tylko nie bardzo wiem, jak skonfigurować tam połączenie do swojego SQLSerwera. Poza tym chciałbym użyć autoryzacji na podstawie loginu domenowego.

Pomoże ktoś coś takiego ogarnąć ??

P.S Nie mogę dodać tabeli do istniejącej już bazy danych, jeśli dobrze pamiętam poleceniem alter się to wykonywało, dobrze pamiętam ??

0

Tabele dodaje się (tworzy) poleceniem CREATE TABLE.
A jak skonfiigurować?
http://www.connectionstrings.com/sql-server/
Patrz na SSPI lub trusted.

0

OK. A mógłbym prosić o jakiś " życiowy" przykład. Bo przez Microsoft SQL Studio Management loguje się poprzez nazwa_serwera\nazwa_bazy_danych poprzez konto domenowe (Windows Domain Autentification, albo coś takiego). Niem jak takie coś ustawić w skrypcie

EDIT
Albo inaczej, gdzie poniżej jest błąd:


Set mConnection = CreateObject("ADODB.Connection")
mConnection.ConnectionTimeout = 0
mConnection.Open "Provider=SQLOLEDB.1;Data Source=SQLSERVER\SQL;Initial Catalog=SQLdb; Integrated Security=SSPI"   ' Integrated Security=SSPI"
mConnection.Execute "INSERT INTO SQLDataBase (Date,OU,Login,FullName,PCName,PCName2,Serial,Processor,RAM,IP,System,SysKey,Office,OfficeKey,Printer) VALUES ('" & Now & "','" strOUName & "','" & strUserName & "','" & strFullName & "','" & strHardware & "','" & strComputerName & "','" & strSerial & "','" & strProcesor & "','" & strRAM & "','" & strIP & "','" & strSystem & "','" & strSystemKey & "','" & strOffice & "','" & strOfficeKeys & "','" & strDefaultPrinter & "')"
Set mConnection = Nothing

Wskazuje przed Znakiem N w miejscu gdzie zaczyna się instrukcja **SQL: VALUES **

0

Ktoś pomoże ??

0
  1. Przed strOUName brak &
  2. Uważałbym na stosowanie NOW Basicowego do SQL - może ci podać w innm formacie i będzie kicha. Lepiej wcześniej odpowiednio sformatować na stringa.
  3. Naprawdę tabelę nazwałeś SQLDataBase? :)
0

Tak wygląda mój kod. Podczas włączenia skryptu nic się nie wywala (mam na myśli błąd), natomiast w bazie danych nie ma żadnego rekordu :(

'############### ZAPIS DO BAZY DANYCH: PLHVSQL02\SQLSERVER : SQLdb\Logowanie_db ###############

mConnection.ConnectionTimeout = 0
mConnection.Open "Provider=SQLOLEDB.1;Data Source=PLHVSQL02\SQLSERVER;Initial Catalog=SQLdb; Integrated Security=SSPI"   ' Integrated Security=SSPI"
mConnection.Execute "INSERT INTO Logowanie (Date,OU,Login,FullName,PCName,PCName2,Serial,Processor,RAM,IP,System,SysKey,Office,OfficeKey,Printer) VALUES ('" & Now & "','"& strOUName & "','" & strUserName & "','" & strFullName & "','" & strHardware & "','" & strComputerName & "','" & strSerial & "','" & strProcesor & "','" & strRAM & "','" & strIP & "','" & strSystem & "','" & strSystemKey & "','" & strOffice & "','" & strOfficeKeys & "','" & strDefaultPrinter & "')"
Set mConnection = Nothing

WSCript.Quit
0

A wykonujesz to przez VBS, czy przez VBA? Jeśli VBS, to spróbuj ten kod wykonać np. z VBA Worda lub Excela (z VBA). Może ci błąd wyskoczy...

1 użytkowników online, w tym zalogowanych: 0, gości: 1