VBscript a MS SQL

Zdravím,
potreboval by som jednoduchú vec v VBScripte, ktorý je vnorený v asp súbore. Potrebujem sa pripojiť pomocou neho na MS SQL server do určitej databáze, a zapísať tam jeden riadok. Na základe informácií, ktoré už viem z ostatným lokálnych premenných + dátum akutálny. Ten tiež neviem ako sa dá získať vo VBScripte. Robil som doteraz v ASP.NET tam to bolo možné cez DateTime, ale tu neviem. Vďaka

Kód:

---

    Dim objConn
    Dim objCmd 
    Dim strConn

    strConn = "PROVIDER = SQLOLEDB.1;Data Source=server;"
    strConn = strConn & "Initial Catalog=pubs;user id=user;password=pwd"
    Set objConn = CreateObject("ADODB.Connection")
    Set objCmd = CreateObject("ADODB.Command")
    objConn.Open = strConn
    objCmd.CommandText = "INSERT INTO tabulka (uzivatel,in_out,klient,operation) VALUES (user,?Datum?,1,'login')"
    objCmd.Execute
    objConn.Close

---

toto som skúšal, ale nejde to. Asi tam je niekde chyba. Veľmi pekne diky.

Server. by melo byt pred CreateObject tedy Server.CreateObject("ADODB.Connection")

objConn.Open = strConn by melo byt spise objConn.Open strConn

"INSERT INTO tabulka (uzivatel,in_out,klient,operation) VALUES (user,getdate(),1,'login')"

Jinak pomohlo by kdyby jsi specifikoval co to hazi za chybu....

Citace:

---

Původně odeslal xkrchnav

Zdravím,
potreboval by som jednoduchú vec v VBScripte, ktorý je vnorený v asp súbore. Potrebujem sa pripojiť pomocou neho na MS SQL server do určitej databáze, a zapísať tam jeden riadok. Na základe informácií, ktoré už viem z ostatným lokálnych premenných + dátum akutálny. Ten tiež neviem ako sa dá získať vo VBScripte. Robil som doteraz v ASP.NET tam to bolo možné cez DateTime, ale tu neviem. Vďaka

Kód:

---

    Dim objConn
    Dim objCmd 
    Dim strConn

    strConn = "PROVIDER = SQLOLEDB.1;Data Source=server;"
    strConn = strConn & "Initial Catalog=pubs;user id=user;password=pwd"
    Set objConn = CreateObject("ADODB.Connection")
    Set objCmd = CreateObject("ADODB.Command")
    objConn.Open = strConn
    objCmd.CommandText = "INSERT INTO tabulka (uzivatel,in_out,klient,operation) VALUES (user,?Datum?,1,'login')"
    objCmd.Execute
    objConn.Close

---

toto som skúšal, ale nejde to. Asi tam je niekde chyba. Veľmi pekne diky.

---

Hádzalo to čosi v zmysle, že chyba na riadku (objConn.Close) pretože objekt je chybný alebo už je zatvorený. Tak som opravil ten riadok s open nie = ale len medzera, aj tak to nepomohlo, chyba bola stále tá istá písaná. Teraz už som to vyriešil cez recordset. A v ňom som po jednom pridal atribúty, ale tomu som sa práve chcel vyhnúť. A neviem či je správny tento postup použitia objCmd čo ja som použil. Čerpal som s nejakého tutoriálu a tam bolo aj to = aj takto použitý Cmd. Zdalo sa mi divné, že ten objCmd nebol nijak zviazaný so spojením. tak možno preto to nešlo. Neviete ako sa to má správne vytvoriť? Aby som potom priamo mohol dávať SQL dotazy? A nie riešiť to cez recordset

Nemam to bohuzel kde zkusit, ale zkus si pohrat s timto.
az si rozjedu zboreny iissko tak to zkusim doladit.

Conn = "Provider=SQLOLEDB.1;User ID=??;Password=?? ;Initial Catalog=??; Data Source=??;Connect Timeout=30"
Set cn = Server.CreateObject("ADODB.Connection")
cn.Open Conn
cn.Execute "INSERT INTO AAA('ccc','ddd')"
cn.Close

Citace:

---

Původně odeslal xkrchnav

Hádzalo to čosi v zmysle, že chyba na riadku (objConn.Close) pretože objekt je chybný alebo už je zatvorený. Tak som opravil ten riadok s open nie = ale len medzera, aj tak to nepomohlo, chyba bola stále tá istá písaná. Teraz už som to vyriešil cez recordset. A v ňom som po jednom pridal atribúty, ale tomu som sa práve chcel vyhnúť. A neviem či je správny tento postup použitia objCmd čo ja som použil. Čerpal som s nejakého tutoriálu a tam bolo aj to = aj takto použitý Cmd. Zdalo sa mi divné, že ten objCmd nebol nijak zviazaný so spojením. tak možno preto to nešlo. Neviete ako sa to má správne vytvoriť? Aby som potom priamo mohol dávať SQL dotazy? A nie riešiť to cez recordset

---

Tak uz jsem si rozjel iisko.
takze toto je funkcni a melo by to byt to co chces.

Conn = "Provider=SQLOLEDB.1;User ID=?? ;Password=?? ;Initial Catalog=??; Data Source=localhost;Connect Timeout=30"
Set cn = Server.CreateObject("ADODB.Connection")
cn.Open Conn
cn.ConnectionString = Conn
cn.Open
cn.Execute "INSERT INTO DBName..TableName (aaa,bbb) VALUES ('ccc','bbb')"
cn.Close

Citace:

---

Původně odeslal BlackMC

Nemam to bohuzel kde zkusit, ale zkus si pohrat s timto.
az si rozjedu zboreny iissko tak to zkusim doladit.

Conn = "Provider=SQLOLEDB.1;User ID=??;Password=?? ;Initial Catalog=??; Data Source=??;Connect Timeout=30"
Set cn = Server.CreateObject("ADODB.Connection")
cn.Open Conn
cn.Execute "INSERT INTO AAA('ccc','ddd')"
cn.Close

---

super to je to čo potrebujem. Dík