Søg
Avatar billede codebase Praktikant
05. november 2001 - 19:14 Der er 8 kommentarer og
1 løsning

Overføre min database Connect til et VB script

Hvordan kan jeg overføre min database forbindelse, til et VB script ?

<html>
<head>
<title>Codebase Inbox</title>
<?
include(\"$DOCUMENT_ROOT/test/vb/adodb/adodb.inc.php\");   

ADOLoadCode(\'mysql\');

$Conn1 = ADONewConnection(\'mysql\');

if (!$Conn1->PConnect(\'localhost\',\' **** ****\',\' **** **** \',\" **** ****\"))
die(\"Cannot connect to codebase_db\");
$sql=\"SELECT  user_name FROM user WHERE id =\'1\'\";
$result  =  mysql_query(\"$sql\")or die(mysql_error());
for($i = 0;$row  =  mysql_fetch_object($result);$i++) {
    echo \"<!-- $row->user_name -->\\n\";
}   
?>
<link rel=\"stylesheet\" href=\"codebase.css\">
<script event=onload for=window language=vbscript>
        Dim Conn1 As ADODB.Connection
        Dim Cmd1 As ADODB.Command
        Dim Rs1 As ADODB.Recordset

  Set Conn1 = New ADODB.Connection
  Conn1.Open
  Set Cmd1 = New ADODB.Command
  Cmd1.ActiveConnection = Conn1
  Cmd1.CommandText = \"SELECT * FROM user WHERE  user_name =\'\" & txtAdminEmail.Text & \"\' AND \" & _
      \"password=\'\" & txtAdminPassword.Text & \"\'\"
  Set Rs1 = Cmd1.Execute()
</script> 
</head>
<body>test
</body>
</html>
Avatar billede jennemaan Nybegynder
06. november 2001 - 10:47 #1
<script event=onload for=window language=vbscript>
        Dim Conn1 \'As ADODB.Connection
        Dim Cmd1 \'As ADODB.Command
        Dim Rs1 \'As ADODB.Recordset

  Set Conn1 = CreateObject(\"ADODB.Connection\") \'New ADODB.Connection
  Conn1.Open
  Set Cmd1 = Createobject(\"ADODB.Command\") \'New ADODB.Command
  Cmd1.ActiveConnection = Conn1
  Cmd1.CommandText = \"SELECT * FROM user WHERE  user_name =\'\" & txtAdminEmail.Text & \"\' AND \" & _
      \"password=\'\" & txtAdminPassword.Text & \"\'\"
  Set Rs1 = Cmd1.Execute()
</script> 


/Jennemaan
Avatar billede codebase Praktikant
06. november 2001 - 10:54 #2
Det virker ikke..

http://www.codebase.dk/test/vb/

_codeb@se.dk
Avatar billede jennemaan Nybegynder
06. november 2001 - 10:56 #3
Det ville heller ikke have virket i vb...

Conn1.Open \"din connectionstring\"

/Jennemaan
Avatar billede jennemaan Nybegynder
06. november 2001 - 10:57 #4
Og iøvrigt...

Set Rs1 = Cmd1.Execute

Hvad skal der ske med det returnerede recordset?
Avatar billede codebase Praktikant
06. november 2001 - 11:06 #5
er det ikke muligt ??


Ja jeg ville bare teste om det var muligt... Sådet skal vel bare udskrives, hvordan gøres det ?

Avatar billede jennemaan Nybegynder
06. november 2001 - 11:09 #6
aaahh... du vil tage din forbindelse fra php (serverside) og overføre til vbscript (client side)? -Det kan ikke lade sig gøre.

/Jennemaan
Avatar billede codebase Praktikant
06. november 2001 - 11:14 #7
hvad skulle jeg så skrive, på client siden for at få oprettet en forbindelse ??

Kunne det gemmes i et format, så det ikke kunne læses ?

Avatar billede jennemaan Nybegynder
06. november 2001 - 11:18 #8
Jeg ville nok overveje at lade din serverside returnere data som XML og så lave et clientside script der parser XML\'en

Hvilken type webserver har du siden på?
Avatar billede codebase Praktikant
06. november 2001 - 11:22 #9
det er en linux server
Avatar billede Ny bruger Nybegynder

Din løsning...

Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.

Loading billede Opret Preview
Kategori
Programmeringssprog kurser
Kurser inden for grundlæggende programmering
Se alle Programmeringssprog kurser

Flere spørgsmål fra Visual Basic kategorien

Titel Indlæg Oprettet Seneste aktivitet
Send mail fra "Outlook New" via VBA i excel Af lonmat i Visual Basic 5 29/08/202512:28 04/09/202515:48
Klik Event i MS Project Af per2edb i Visual Basic 0 05/08/202510:10 -
VBA koder lagt i MS project kolonner Af per2edb i Visual Basic 0 16/05/202512:31 -
Foto fra Word eller Excel Af MSchlamovitz i Visual Basic 1 22/04/202514:55 25/04/202511:21
Proxy server.. Af SommerFyr i Visual Basic 12 10/07/202417:34 12/07/202414:34
Se alle spørgsmål i kategorien Opret spørgsmål

Log ind eller opret profil

Hov!

For at kunne deltage på Computerworld Eksperten skal du være logget ind.

Det er heldigvis nemt at oprette en bruger: Det tager to minutter og du kan vælge at bruge enten e-mail, Facebook eller Google som login.

Opret Log ind

Du kan også logge ind via nedenstående tjenester

Alle kategorier på Eksperten
Seneste spørgsmål Seneste aktivitet
27/0821:03 Kan man få Word viewer gratis Af Strawberry i Word
26/0813:28 Findes der en brugsanvisning til : "ONKYO Stereo Casette - Tape Deck - R1" Af Ikke-ekspert i Musik & videoafspillere
24/0820:07 Libra Office 26.2.5.2 - Er sort - Kan an ændre til lysere baggrund ? (Windows 11) Af Ikke-ekspert i Office & Kontorpakker
24/0811:24 Hvor kan jeg finde hjælp til at flytte fra min gamle Samsung Flip4 til min nye Samsung Galaxy S24 Af vbr i Apps til Android
24/0811:16 problem med mailbesked Af Pestilensen i Excel
White papers
Flere white papers »