ASP:
1
2
3
4
5
6
7
8
9
10
11
12
| <% Dim MyConnection Set Myconnection = Server.CreateObject("ADODB.Connection") Call MyConnection.Open( _ "Driver={Microsoft Access Driver (*.mdb)};"& _ "DBQ=C:\Inetpub\wwwroot\dbgastenboek.mdb") Dim MyRecordset Set MyRecordset = Server.CreateObject("ADODB.Recordset") Call MyRecordset.Open ("SELECT * FROM tblGastenboek", MyConnection) %> |
Ik ben voor de opleiding (ICA) bezig met het maken van wat voorbeelden en opdrachten alleen krijg ik het niet voor elkaar om een verbinding te maken met mijn access database ik krijg dan onderstaande foutmelding.
na wat zoeken op GOT ben ik eens op zoek gegaan uitleg over de jet driversMicrosoft OLE DB Provider for ODBC Drivers (0x80004005)
[Microsoft][ODBC Microsoft Access-stuurprogramma]Algemene fout Kan de registersleutel Temporary (volatile) Jet DSN for process 0xb9c Thread 0xc20 DBC 0x115e7e4 Jet niet openen.
/gastenboek.asp, line 12
op de micrsoft site vind ik er het volgende over http://msdn.microsoft.com.../accessingdatawithado.asp
ik zou daarvoor
ASP:
1
2
3
4
5
6
| <% 'Create a connection object. Set cnn = Server.CreateObject("ADODB.Connection") 'Open a connection using the OLE DB connection string. cnn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\MarketData\ProjectedSales.mdb" %> |
in de plaats krijgen alleen dit krijg ik ook niet voor elkaar het zal wel aan mij liggen en het feit dat ik nog niet zo lang met asp bezig ben maar kan iemand mij hierbij helpen ?
het volgende zou het dan ongeveer moeten zijn zover ik het begrijp alleen ik denk dat ik het iets te letterlijk overneem want ook hier krijg ik een foutmelding
ASP:
1
2
3
4
5
6
7
| <% 'Create a connection object. Set MyConnection = Server.CreateObject("ADODB.Connection") 'Open a connection using the OLE DB connection string. MyConnection.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Inetpub\wwwroot\dbgastenboek.mdb" %> |
volledige site waarin het gebruikt moet worden.
ASP.NET Visual Basic:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
| <% @LANGUAGE = VBScript %> <% Option Explicit %> <html> <head> <title>Untitled Document</title> <meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1"> </head> <body <% Dim MyConnection Set Myconnection = Server.CreateObject("ADODB.Connection") Call MyConnection.Open( _ "Driver={Microsoft Access Driver (*.mdb)};"& _ "DBQ=C:\Inetpub\wwwroot\dbgastenboek.mdb") Dim MyRecordset Set MyRecordset = Server.CreateObject("ADODB.Recordset") Call MyRecordset.Open ("SELECT * FROM tblGastenboek", MyConnection) %> <table width="100%" border="1"> <% Call MyRecordset.MoveFirst () While Not MyRecordset.EOF %> <tr> <td>Naam:</td> </tr> <tr> <td><%=MyRecordset("gbkNaam")%></td> </tr> <tr> <td>Website:</td> </tr> <tr> <td><%=MyRecordset("gbkWebsite")%></td> </tr> <tr> <td>Comment:</td> </tr> <tr> <td><%=MyRecordset("gbkComment")%></td> </tr> <tr> <td><hr></td> </tr> <% Call MyRecordset.MoveNext() Wend %> </table> <% 'Cleanup database access variables MyRecordset.Close MyConnection.Close %> </body> </html> |