User-1585918428 posted
The following is the code that i used to test write/read ms acces database via asp.net webpage. It works in my computer, it works in goddady's host... but the same code uploaded to webhosting world.net (https://www.webhostingworld.net/),
it doesn;'t work....
Imports System.Data.OleDb
Partial Class _Default
Inherits System.Web.UI.Page
'Dim cn As ADODB.
' Dim cmd As OleDbCommand
Dim cn
Dim cmd
Protected Sub Button1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button1.Click
'test write
'cn = New ADODB.Connection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("App_Data/testing_database"))
cn = Server.CreateObject("ADODB.Connection")
'add="C:\Inetpub\vhosts\kinjiworld.com\App_Data\testing_database.mdb"
'ConStr ="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & add & ";Persist Security Info=False"
'cn.Open ConStr
cn.Open("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("App_Data/testing_database"))
'cmd = New OleDbCommand()
cmd.Connection = cn
cmd.CommandText = "INSERT INTO testing (a_name, a_id) VALUES (@a_name, @a_id)"
cmd.Parameters.AddWithValue("@a_name", TextBox1.Text)
cmd.Parameters.AddWithValue("@a_id", TextBox2.Text)
cmd.ExecuteNonQuery()
cn.Close()
TextBox1.Text = ""
TextBox2.Text = ""
'test read
Dim my_namelist(100), myid(100) As String
Dim counter_read As Integer
cn = New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("/App_Data/testing_database.mdb"))
cn.Open()
cmd = New OleDbCommand("SELECT * FROM testing ", cn)
Dim reader As OleDbDataReader
reader = cmd.ExecuteReader()
Do While reader.Read()
my_namelist(counter_read) = reader.GetString(1)
myid(counter_read) = reader.GetString(2)
counter_read = counter_read + 1
Loop
reader.Close()
TextBox3.Text = "database list" & vbNewLine & vbNewLine
For a = 0 To counter_read
TextBox3.Text = TextBox3.Text & my_namelist(a) & vbTab & vbTab & myid(a) & vbNewLine
Next
End Sub
End Class
