Jump to content



Welcome to AstaHost - Dear Guest , Please Register here to get Your own website. - Ask a Question / Express Opinion / Reply w/o Sign-Up!

Toggle shoutbox Shoutbox Open the Shoutbox in a popup

@  agyat : (26 May 2013 - 08:25 AM) And Need Some Suggestion To Start A Ball Roll Here.
@  agyat : (26 May 2013 - 08:24 AM) Nothing Special For The Day. What About You?
@  yordan : (25 May 2013 - 09:50 PM) Hi, Agyat What's New?
@  yordan : (25 May 2013 - 07:59 PM) Yay, Shoutbox Is Back! Yahooo!
@  agyat : (24 May 2013 - 05:15 PM) O Dear, Where Are You? Without Your Words This Sb Is ..
@  agyat : (23 May 2013 - 01:23 AM) Wow! Mr. Sb Back Home.
@  OpaQue : (23 May 2013 - 12:44 AM) Ting
@  OpaQue : (24 April 2013 - 02:44 PM) I guess, Time to run Mycent script.
@  OpaQue : (24 April 2013 - 02:43 PM) wow.. not much spam. except habatt posting lot of links.. :P
@  yordan : (23 April 2013 - 01:04 PM) You're welcome, agyat. Nice to have been helpful. Second lesson: try full words, "you" instead of "EW".
@  agyat : (23 April 2013 - 05:03 AM) @YORDAN: tHANK EW FOR YOUR FIRST LESSON.   :D
@  yordan : (22 April 2013 - 09:43 PM) @agyat : "why don't you help me", or "please help me", or "please teach us"
@  yordan : (22 April 2013 - 09:42 PM) welcome back, velma
@  velma : (22 April 2013 - 07:51 AM) **yawns** Good to be back, wonder what is going on here :)
@  agyat : (22 April 2013 - 03:50 AM) Oh! so, why don't help me learn english..
@  yordan : (21 April 2013 - 08:38 PM) The goal mentioned by shiu : "learning english, learning computer"
@  agyat : (21 April 2013 - 06:31 PM) WHAT GOAL?
@  yordan : (20 April 2013 - 10:39 AM) yes, that's our goal. simultaneouly learning English and teaching/learning computer using.
@  shiyu : (20 April 2013 - 07:30 AM) learning english,learning computer
@  yordan : (19 April 2013 - 01:11 PM) Oh, I see, it's just a trick in order to force people looking at your texte. Somehow smart, maybe.

Photo
- - - - -

Ms Acess Cannot Update Or Delete

Started by hendrikbez, Apr 02 2009 10:05 AM

2 replies to this topic

#1 hendrikbez

hendrikbez

    Newbie [ Level 1 ]

  • Members
  • 1 posts

Posted 02 April 2009 - 10:05 AM

I am using access 2003 for database, I can add, but it seems that I cannot update or delete.

I am strying to get this to work for 2 weeks now, but still not getting it to work.

Database name = Blokkies
Table name = TBlokkies
Colums leidraad (PK), A1,A2,A3,A4,A5,A6,A7,A8,A9,A10,A11,A12
Colum Leidraad has the Primary key

All of them is text.

Here is my code.

Imports System.Data
Imports System.Data.OleDb</P> <P>Public Class frm_Blokkies</P> <P>	Inherits System.Windows.Forms.Form</P> <P>#Region "Dim"</P> <P>	Dim SaveOrEdit As String = ""
	Dim ConnString As String = "PROVIDER=Microsoft.Jet.OLEDB.4.0;Data Source = C:\Blokkies\blokkies.mdb"</P> <P>
#End Region</P> <P>
#Region "Function Fill List Box"
	Public Function FillListBox(ByVal Sqlstring As String)</P> <P>[tab][/tab]	ListBox1.Items.Clear()
[tab][/tab]	ListView1.Items.Clear()</P> <P>[tab][/tab]	Dim OleDbConn As OleDbConnection = New OleDbConnection(ConnString)
[tab][/tab]	OleDbConn.Open()
[tab][/tab]	Dim MyDataReader As OleDbDataReader
[tab][/tab]	Dim MyOleDbCommand As OleDbCommand = New OleDbCommand()</P> <P>[tab][/tab]	Dim MyDataSet As DataSet = New DataSet()</P> <P>[tab][/tab]	Dim MyOleDataAdapter As OleDbDataAdapter = New OleDbDataAdapter()</P> <P>[tab][/tab]	MyOleDataAdapter.SelectCommand = New OleDbCommand(Sqlstring, OleDbConn)</P> <P>[tab][/tab]	MyOleDataAdapter.Fill(MyDataSet)</P> <P>[tab][/tab]	MyOleDbCommand.Connection = (OleDbConn)</P> <P>[tab][/tab]	MyOleDbCommand.CommandText = Sqlstring</P> <P>[tab][/tab]	MyDataReader = MyOleDbCommand.ExecuteReader</P> <P>[tab][/tab]	NeroBar1.MinValue = 0
[tab][/tab]	NeroBar1.MaxValue = MyDataSet.Tables(0).Rows.Count</P> <P>[tab][/tab]	Do While MyDataReader.Read</P> <P>[tab][/tab][tab][/tab]	ListBox1.Items.Add(MyDataReader("Leidraad"))</P> <P>[tab][/tab][tab][/tab]	Dim MyItem = ListView1.Items.Add(MyDataReader("Leidraad".ToString))</P> <P>[tab][/tab][tab][/tab]	With MyItem</P> <P>[tab][/tab][tab][/tab][tab][/tab]	.SubItems.Add(MyDataReader("A1").ToString)
[tab][/tab][tab][/tab][tab][/tab]	.SubItems.Add(MyDataReader("A2").ToString)
[tab][/tab][tab][/tab][tab][/tab]	.SubItems.Add(MyDataReader("A3").ToString)
[tab][/tab][tab][/tab][tab][/tab]	.SubItems.Add(MyDataReader("A4").ToString)
[tab][/tab][tab][/tab][tab][/tab]	.SubItems.Add(MyDataReader("A5").ToString)
[tab][/tab][tab][/tab][tab][/tab]	.SubItems.Add(MyDataReader("A6").ToString)
[tab][/tab][tab][/tab][tab][/tab]	.SubItems.Add(MyDataReader("A7").ToString)
[tab][/tab][tab][/tab][tab][/tab]	.SubItems.Add(MyDataReader("A8").ToString)
[tab][/tab][tab][/tab][tab][/tab]	.SubItems.Add(MyDataReader("A9").ToString)
[tab][/tab][tab][/tab][tab][/tab]	.SubItems.Add(MyDataReader("A10").ToString)
[tab][/tab][tab][/tab][tab][/tab]	.SubItems.Add(MyDataReader("A11").ToString)
[tab][/tab][tab][/tab][tab][/tab]	.SubItems.Add(MyDataReader("A12").ToString)</P> <P>[tab][/tab][tab][/tab]	End With</P> <P>[tab][/tab]	Loop</P> <P>[tab][/tab]	MyDataReader.Close()</P> <P>[tab][/tab]	OleDbConn.Close()
[tab][/tab]	OleDbConn.Dispose()</P> <P>	End Function</P> <P>#End Region</P> <P>#Region "Function Fill Text Box"</P> <P>	Public Function FillTextBox(ByVal Sqlstring As String)</P> <P>[tab][/tab]	Dim OleDbConn As OleDbConnection = New OleDbConnection(ConnString)
[tab][/tab]	OleDbConn.Open()</P> <P>[tab][/tab]	Dim MyDataReader As OleDbDataReader</P> <P>[tab][/tab]	Dim MyOleDbCommand As OleDbCommand = New OleDbCommand()
[tab][/tab]	MyOleDbCommand.Connection = (OleDbConn)
[tab][/tab]	MyOleDbCommand.CommandText = Sqlstring</P> <P>[tab][/tab]	MyDataReader = MyOleDbCommand.ExecuteReader</P> <P>[tab][/tab]	Try
[tab][/tab][tab][/tab]	Do While MyDataReader.Read</P> <P>[tab][/tab][tab][/tab][tab][/tab]	TxtLuidraad.Text = (MyDataReader.Item(0))
[tab][/tab][tab][/tab][tab][/tab]	txtA1.Text = (MyDataReader.Item(1))
[tab][/tab][tab][/tab][tab][/tab]	txtA2.Text = (MyDataReader.Item(2))
[tab][/tab][tab][/tab][tab][/tab]	txtA3.Text = (MyDataReader.Item(3))
[tab][/tab][tab][/tab][tab][/tab]	txtA4.Text = (MyDataReader.Item(4))
[tab][/tab][tab][/tab][tab][/tab]	txtA5.Text = (MyDataReader.Item(5))
[tab][/tab][tab][/tab][tab][/tab]	txtA6.Text = (MyDataReader.Item(6))
[tab][/tab][tab][/tab][tab][/tab]	txtA7.Text = (MyDataReader.Item(7))
[tab][/tab][tab][/tab][tab][/tab]	txtA8.Text = (MyDataReader.Item(8))
[tab][/tab][tab][/tab][tab][/tab]	txtA9.Text = (MyDataReader.Item(9))
[tab][/tab][tab][/tab][tab][/tab]	txtA10.Text = (MyDataReader.Item(10))
[tab][/tab][tab][/tab][tab][/tab]	txtA11.Text = (MyDataReader.Item(11))
[tab][/tab][tab][/tab][tab][/tab]	txtA12.Text = (MyDataReader.Item(12))</P> <P>[tab][/tab][tab][/tab]	Loop</P> <P>[tab][/tab][tab][/tab]	StatusLabel.Text = "Record " & TxtLuidraad.Text & " selected"</P> <P>[tab][/tab]	Catch err As System.Exception</P> <P>[tab][/tab][tab][/tab]	StatusLabel.Text = " Selected Record Contains Null String"</P> <P>[tab][/tab][tab][/tab]	MyDataReader.Close()</P> <P>[tab][/tab][tab][/tab]	OleDbConn.Close()
[tab][/tab][tab][/tab]	OleDbConn.Dispose()
[tab][/tab]	End Try</P> <P>	End Function</P> <P>#End Region</P> <P>#Region "Function Fill Data Grid"</P> <P>	Public Function FillDataGrid(ByVal Sqlstring As String)</P> <P>[tab][/tab]	Dim OleDbConn As OleDbConnection = New OleDbConnection(ConnString)
[tab][/tab]	OleDbConn.Open()</P> <P>[tab][/tab]	Dim MyDataSet As DataSet = New DataSet()</P> <P>[tab][/tab]	Dim MyOleDataAdapter As OleDbDataAdapter = New OleDbDataAdapter()
[tab][/tab]	MyOleDataAdapter.SelectCommand = New OleDbCommand(Sqlstring, OleDbConn)
[tab][/tab]	MyOleDataAdapter.Fill(MyDataSet)</P> <P>[tab][/tab]	Me.DataGrid1.DataSource = MyDataSet.Tables(0)</P> <P>[tab][/tab]	StatusLabel.Text = " " & MyDataSet.Tables(0).Rows.Count & " Rows."</P> <P>[tab][/tab]	MyOleDataAdapter.Dispose()
[tab][/tab]	MyDataSet.Dispose()
[tab][/tab]	OleDbConn.Close()
[tab][/tab]	OleDbConn.Dispose()</P> <P>	End Function</P> <P>#End Region</P> <P>#Region "Function Add New"
	Public Function AddNew()</P> <P>[tab][/tab]	Try</P> <P>[tab][/tab][tab][/tab]	Dim OleDbConn As OleDbConnection = New OleDbConnection(ConnString)
[tab][/tab][tab][/tab]	OleDbConn.Open()</P> <P>[tab][/tab][tab][/tab]	Dim MyOledbCommand As OleDbCommand = New OleDbCommand()</P> <P>[tab][/tab][tab][/tab]	Dim String1, String2, String3, String4, String5, string6, string7, string8, string9, string10, string11, string12, string13 As String</P> <P>[tab][/tab][tab][/tab]	String1 = TxtLuidraad.Text
[tab][/tab][tab][/tab]	String2 = txtA1.Text()
[tab][/tab][tab][/tab]	String3 = txtA2.Text()
[tab][/tab][tab][/tab]	String4 = txtA3.Text()
[tab][/tab][tab][/tab]	String5 = txtA4.Text()
[tab][/tab][tab][/tab]	string6 = txtA5.Text()
[tab][/tab][tab][/tab]	string7 = txtA6.Text()
[tab][/tab][tab][/tab]	string8 = txtA7.Text()
[tab][/tab][tab][/tab]	string9 = txtA8.Text()
[tab][/tab][tab][/tab]	string10 = txtA9.Text()
[tab][/tab][tab][/tab]	string11 = txtA10.Text()
[tab][/tab][tab][/tab]	string12 = txtA11.Text()
[tab][/tab][tab][/tab]	string13 = txtA12.Text()</P> <P>[tab][/tab][tab][/tab]	MyOledbCommand.CommandText = "Insert Into Tblokkies " _
[tab][/tab][tab][/tab]	& "(leidraad,A1,A2,A3,A4,A5,A6,A7,A8,A9,A10,A11,A12) " _
[tab][/tab][tab][/tab]	& "Values (" _
[tab][/tab][tab][/tab]	& "'" & String1 & "', " _
[tab][/tab][tab][/tab]	& "'" & String2 & "', " _
[tab][/tab][tab][/tab]	& "'" & String3 & "', " _
[tab][/tab][tab][/tab]	& "'" & String4 & "', " _
[tab][/tab][tab][/tab]	& "'" & String5 & "', " _
[tab][/tab][tab][/tab]	& "'" & string6 & "', " _
[tab][/tab][tab][/tab]	& "'" & string7 & "', " _
[tab][/tab][tab][/tab]	& "'" & string8 & "', " _
[tab][/tab][tab][/tab]	& "'" & string9 & "', " _
[tab][/tab][tab][/tab]	& "'" & string10 & "', " _
[tab][/tab][tab][/tab]	& "'" & string11 & "', " _
[tab][/tab][tab][/tab]	& "'" & string12 & "', " _
[tab][/tab][tab][/tab]	& "'" & string13 & "')"</P> <P>[tab][/tab][tab][/tab]	MyOledbCommand.Connection = OleDbConn</P> <P>[tab][/tab][tab][/tab]	MyOledbCommand.ExecuteNonQuery()
[tab][/tab][tab][/tab]	OleDbConn.Close()</P> <P>[tab][/tab][tab][/tab]	FillDataGrid("Select * from Tblokkies")
[tab][/tab][tab][/tab]	FillListBox("Select * from Tblokkies")
[tab][/tab][tab][/tab]	DisableTextboxes()</P> <P>[tab][/tab][tab][/tab]	btnupdate.Enabled = True
[tab][/tab][tab][/tab]	btnDelete.Enabled = True
[tab][/tab][tab][/tab]	'btnAdd.Enabled = True</P> <P>[tab][/tab][tab][/tab]	SaveOrEdit = "Cancel"</P> <P>[tab][/tab][tab][/tab]	StatusLabel.Text = " Data Added."</P> <P>[tab][/tab]	Catch err As System.Exception
[tab][/tab][tab][/tab]	StatusLabel.Text = err.Message
[tab][/tab]	End Try</P> <P>	End Function</P> <P>#End Region</P> <P>#Region " Function Edit"</P> <P>	Public Function Edit() As String
[tab][/tab]	Try</P> <P>[tab][/tab][tab][/tab]	Dim OleDbConn As OleDbConnection = New OleDbConnection(ConnString)
[tab][/tab][tab][/tab]	OleDbConn.Open()</P> <P>[tab][/tab][tab][/tab]	Dim MyOledbCommand As OleDbCommand = New OleDbCommand()</P> <P>[tab][/tab][tab][/tab]	Dim String1, String2, String3, String4, String5, string6, string7, string8, string9, string10, string11, string12, string13 As String</P> <P>[tab][/tab][tab][/tab]	String1 = TxtLuidraad.Text
[tab][/tab][tab][/tab]	String2 = txtA1.Text()
[tab][/tab][tab][/tab]	String3 = txtA2.Text()
[tab][/tab][tab][/tab]	String4 = txtA3.Text()
[tab][/tab][tab][/tab]	String5 = txtA4.Text()
[tab][/tab][tab][/tab]	string6 = txtA5.Text()
[tab][/tab][tab][/tab]	string7 = txtA6.Text()
[tab][/tab][tab][/tab]	string8 = txtA7.Text()
[tab][/tab][tab][/tab]	string9 = txtA8.Text()
[tab][/tab][tab][/tab]	string10 = txtA9.Text()
[tab][/tab][tab][/tab]	string11 = txtA10.Text()
[tab][/tab][tab][/tab]	string12 = txtA11.Text()
[tab][/tab][tab][/tab]	string13 = txtA12.Text()</P> <P>
[tab][/tab][tab][/tab]	MyOledbCommand.CommandText = "Update Tblokkies Set " _
[tab][/tab][tab][/tab]	& "leidraad='" & String1 & "', " _
[tab][/tab][tab][/tab]	& "A1='" & String2 & "', " _
[tab][/tab][tab][/tab]	& "A2='" & String3 & "', " _
[tab][/tab][tab][/tab]	& "A3='" & String4 & "', " _
[tab][/tab][tab][/tab]	& "A4='" & String5 & "' " _
[tab][/tab][tab][/tab]	& "A5='" & string6 & "' " _
[tab][/tab][tab][/tab]	& "A6='" & string7 & "' " _
[tab][/tab][tab][/tab]	& "A7='" & string8 & "' " _
[tab][/tab][tab][/tab]	& "A8='" & string9 & "' " _
[tab][/tab][tab][/tab]	& "A9='" & string10 & "' " _
[tab][/tab][tab][/tab]	& "A10='" & string11 & "' " _
[tab][/tab][tab][/tab]	& "A11='" & string12 & "' " _
[tab][/tab][tab][/tab]	& "A12='" & string13 & "' " _
[tab][/tab][tab][/tab]	& "WHERE leidraad = " & ListBox1.Items(ListBox1.SelectedIndex)</P> <P>[tab][/tab][tab][/tab]	MyOledbCommand.Connection = OleDbConn</P> <P>[tab][/tab][tab][/tab]	MyOledbCommand.ExecuteNonQuery()
[tab][/tab][tab][/tab]	OleDbConn.Close()</P> <P>[tab][/tab][tab][/tab]	DisableTextboxes()
[tab][/tab][tab][/tab]	NeroBar1.Value = 0</P> <P>[tab][/tab][tab][/tab]	FillDataGrid("Select * from Tblokkies")
[tab][/tab][tab][/tab]	FillListBox("Select * from Tblokkies")</P> <P>[tab][/tab][tab][/tab]	btnaddNew.Enabled = True
[tab][/tab][tab][/tab]	btnDelete.Enabled = True
[tab][/tab][tab][/tab]	' btnupdate.Enabled = True</P> <P>[tab][/tab][tab][/tab]	SaveOrEdit = "Cancel"</P> <P>[tab][/tab][tab][/tab]	StatusLabel.Text = " Data Edited."
[tab][/tab]	Catch err As System.Exception
[tab][/tab][tab][/tab]	StatusLabel.Text = err.Message
[tab][/tab]	End Try</P> <P>	End Function</P> <P>#End Region</P> <P>#Region "Function Delete"</P> <P>	Public Function Delete() As String
[tab][/tab]	Try</P> <P>[tab][/tab][tab][/tab]	Dim OleDbConn As OleDbConnection = New OleDbConnection(ConnString)
[tab][/tab][tab][/tab]	OleDbConn.Open()</P> <P>[tab][/tab][tab][/tab]	Dim MyOledbCommand As OleDbCommand = New OleDbCommand()</P> <P>
[tab][/tab][tab][/tab]	'MyOledbCommand.CommandText = "Delete * From Tblokkies "  & "WHERE leidraad = " & ListBox1.Items(ListBox1.SelectedIndex)</P> <P>[tab][/tab][tab][/tab]	MyOledbCommand.CommandText = "DELETE * FROM [tblokkies] WHERE (leidraad= ?)'" & ListBox1.Items(ListBox1.SelectedIndex) & "'"</P> <P>[tab][/tab][tab][/tab]	MyOledbCommand.Connection = OleDbConn</P> <P>[tab][/tab][tab][/tab]	MyOledbCommand.ExecuteNonQuery()
[tab][/tab][tab][/tab]	OleDbConn.Close()</P> <P>[tab][/tab][tab][/tab]	DisableTextboxes()
[tab][/tab][tab][/tab]	NeroBar1.Value = 0</P> <P>[tab][/tab][tab][/tab]	FillDataGrid("Select * from Tblokkies")
[tab][/tab][tab][/tab]	FillListBox("Select * from Tblokkies")
[tab][/tab][tab][/tab]	StatusLabel.Text = " Data Deleted."</P> <P>[tab][/tab]	Catch err As System.Exception
[tab][/tab][tab][/tab]	StatusLabel.Text = err.Message
[tab][/tab]	End Try</P> <P>	End Function</P> <P>
#End Region</P> <P>#Region "Delete All"</P> <P>	Public Function DeleteAll() As String
[tab][/tab]	Try</P> <P>[tab][/tab][tab][/tab]	Dim OleDbConn As OleDbConnection = New OleDbConnection(ConnString)
[tab][/tab][tab][/tab]	OleDbConn.Open()</P> <P>[tab][/tab][tab][/tab]	Dim MyOledbCommand As OleDbCommand = New OleDbCommand()</P> <P>[tab][/tab][tab][/tab]	MyOledbCommand.CommandText = "Delete * From Tblokkies"</P> <P>[tab][/tab][tab][/tab]	MyOledbCommand.Connection = OleDbConn</P> <P>[tab][/tab][tab][/tab]	MyOledbCommand.ExecuteNonQuery()
[tab][/tab][tab][/tab]	OleDbConn.Close()</P> <P>[tab][/tab][tab][/tab]	DisableTextboxes()
[tab][/tab][tab][/tab]	NeroBar1.Value = 0</P> <P>
[tab][/tab][tab][/tab]	FillDataGrid("Select * from Tblokkies")
[tab][/tab][tab][/tab]	FillListBox("Select * from Tblokkies")
[tab][/tab][tab][/tab]	StatusLabel.Text = " Data Deleted."</P> <P>[tab][/tab]	Catch err As System.Exception
[tab][/tab][tab][/tab]	StatusLabel.Text = err.Message
[tab][/tab]	End Try</P> <P>	End Function</P> <P>#End Region</P> <P>#Region "Function Enable Text Boxes"</P> <P>	Public Function EnableTextboxes(ByVal ClearTextBoxes As Boolean)</P> <P>[tab][/tab]	TxtLuidraad.ReadOnly = False
[tab][/tab]	txtA1.ReadOnly = False
[tab][/tab]	txtA2.ReadOnly = False
[tab][/tab]	txtA3.ReadOnly = False
[tab][/tab]	txtA4.ReadOnly = False
[tab][/tab]	txtA5.ReadOnly = False
[tab][/tab]	txtA6.ReadOnly = False
[tab][/tab]	txtA7.ReadOnly = False
[tab][/tab]	txtA8.ReadOnly = False
[tab][/tab]	txtA9.ReadOnly = False
[tab][/tab]	txtA10.ReadOnly = False
[tab][/tab]	txtA11.ReadOnly = False
[tab][/tab]	txtA12.ReadOnly = False</P> <P>[tab][/tab]	If ClearTextBoxes = True Then
[tab][/tab][tab][/tab]	TxtLuidraad.Text = vbNullString
[tab][/tab][tab][/tab]	txtA1.Text = vbNullString
[tab][/tab][tab][/tab]	txtA2.Text = vbNullString
[tab][/tab][tab][/tab]	txtA3.Text = vbNullString
[tab][/tab][tab][/tab]	txtA4.Text = vbNullString
[tab][/tab][tab][/tab]	txtA5.Text = vbNullString
[tab][/tab][tab][/tab]	txtA6.Text = vbNullString
[tab][/tab][tab][/tab]	txtA7.Text = vbNullString
[tab][/tab][tab][/tab]	txtA8.Text = vbNullString
[tab][/tab][tab][/tab]	txtA9.Text = vbNullString
[tab][/tab][tab][/tab]	txtA10.Text = vbNullString
[tab][/tab][tab][/tab]	txtA11.Text = vbNullString
[tab][/tab][tab][/tab]	txtA12.Text = vbNullString</P> <P>[tab][/tab]	End If</P> <P>	End Function</P> <P>#End Region</P> <P>#Region "Function Disable Text Boxes"</P> <P>	Public Function DisableTextboxes()</P> <P>[tab][/tab]	TxtLuidraad.ReadOnly = True
[tab][/tab]	txtA1.ReadOnly = True
[tab][/tab]	txtA2.ReadOnly = True
[tab][/tab]	txtA3.ReadOnly = True
[tab][/tab]	txtA4.ReadOnly = True
[tab][/tab]	txtA5.ReadOnly = True
[tab][/tab]	txtA6.ReadOnly = True
[tab][/tab]	txtA7.ReadOnly = True
[tab][/tab]	txtA8.ReadOnly = True
[tab][/tab]	txtA9.ReadOnly = True
[tab][/tab]	txtA10.ReadOnly = True
[tab][/tab]	txtA11.ReadOnly = True
[tab][/tab]	txtA12.ReadOnly = True</P> <P>[tab][/tab]	TxtLuidraad.Text = vbNullString
[tab][/tab]	txtA1.Text = vbNullString
[tab][/tab]	txtA2.Text = vbNullString
[tab][/tab]	txtA3.Text = vbNullString
[tab][/tab]	txtA4.Text = vbNullString
[tab][/tab]	txtA5.Text = vbNullString
[tab][/tab]	txtA6.Text = vbNullString
[tab][/tab]	txtA7.Text = vbNullString
[tab][/tab]	txtA8.Text = vbNullString
[tab][/tab]	txtA9.Text = vbNullString
[tab][/tab]	txtA10.Text = vbNullString
[tab][/tab]	txtA11.Text = vbNullString
[tab][/tab]	txtA12.Text = vbNullString</P> <P>	End Function</P> <P>#End Region</P> <P>#Region "Listbox Selected"</P> <P>	Private Sub ListBox1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ListBox1.SelectedIndexChanged</P> <P>[tab][/tab]	Dim SqlStr As String</P> <P>[tab][/tab]	SqlStr = "Select * from tblokkies where leidraad = """ & ListBox1.Items(ListBox1.SelectedIndex) & """"</P> <P>[tab][/tab]	FillTextBox(SqlStr)
	End Sub</P> <P>#End Region</P> <P>#Region "Form load"</P> <P>	Private Sub frm_Blokkies_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load</P> <P>[tab][/tab]	DisableTextboxes()
[tab][/tab]	FillListBox("Select * from Tblokkies")
[tab][/tab]	FillDataGrid("Select * from Tblokkies")</P> <P>[tab][/tab]	Me.ClientSize = New System.Drawing.Size(823, 621)</P> <P>	End Sub</P> <P>#End Region</P> <P>#Region "Clean"</P> <P>	Private Sub btnClear_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnClear.Click</P> <P>[tab][/tab]	DisableTextboxes()
[tab][/tab]	NeroBar1.Value = 0
[tab][/tab]	FillDataGrid("select * from Tblokkies")
[tab][/tab]	FillListBox("select * from Tblokkies")</P> <P>	End Sub</P> <P>#End Region</P> <P>#Region "New"</P> <P>	Private Sub btnaddNew_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnaddNew.Click</P> <P>[tab][/tab]	SaveOrEdit = "Save"
[tab][/tab]	StatusLabel.Text = " Add new Data"
[tab][/tab]	EnableTextboxes(True)</P> <P>[tab][/tab]	btnAdd.Enabled = True
[tab][/tab]	btnupdate.Enabled = False
[tab][/tab]	btnDelete.Enabled = False</P> <P>	End Sub</P> <P>#End Region</P> <P>#Region "Edit/Update"</P> <P>	Private Sub btnupdate_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnupdate.Click</P> <P>[tab][/tab]	Try</P> <P>[tab][/tab][tab][/tab]	Dim CatchError As Integer = ListBox1.Items(ListBox1.SelectedIndex)</P> <P>[tab][/tab]	Catch err As System.Exception</P> <P>[tab][/tab][tab][/tab]	StatusLabel.Text = " Select Record to Edit"
[tab][/tab][tab][/tab]	Exit Sub
[tab][/tab]	End Try</P> <P>[tab][/tab]	SaveOrEdit = "Edit"
[tab][/tab]	StatusLabel.Text = " Edit Existing Data"</P> <P>[tab][/tab]	EnableTextboxes(False)</P> <P>[tab][/tab]	btnaddNew.Enabled = False
[tab][/tab]	btnDelete.Enabled = False</P> <P>	End Sub</P> <P>#End Region</P> <P>#Region "Delete"</P> <P>
	Private Sub btnDelete_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnDelete.Click</P> <P>[tab][/tab]	Try</P> <P>[tab][/tab][tab][/tab]	Dim CatchError As Integer = ListBox1.Items(ListBox1.SelectedIndex)</P> <P>[tab][/tab]	Catch err As System.Exception</P> <P>[tab][/tab][tab][/tab]	StatusLabel.Text = " Select Record to Delete"
[tab][/tab][tab][/tab]	Exit Sub
[tab][/tab]	End Try</P> <P>[tab][/tab]	Delete()</P> <P>	End Sub</P> <P>#End Region</P> <P>#Region "Save"</P> <P>	Private Sub btnAdd_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnAdd.Click</P> <P>[tab][/tab]	If SaveOrEdit = "Save" Then</P> <P>[tab][/tab][tab][/tab]	AddNew()</P> <P>[tab][/tab]	ElseIf SaveOrEdit = "Edit" Then</P> <P>[tab][/tab][tab][/tab]	Edit()
[tab][/tab]	Else</P> <P>[tab][/tab][tab][/tab]	StatusLabel.Text = " No Data to be Saved"</P> <P>[tab][/tab]	End If</P> <P>	End Sub</P> <P>#End Region</P> <P>#Region "Cancel"</P> <P>	Private Sub btncancel_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btncancel.Click</P> <P>[tab][/tab]	Try</P> <P>[tab][/tab][tab][/tab]	ListBox1.ClearSelected()</P> <P>[tab][/tab]	Catch err As System.Exception</P> <P>[tab][/tab]	End Try</P> <P>[tab][/tab]	SaveOrEdit = "Cancel"
[tab][/tab]	DisableTextboxes()
[tab][/tab]	StatusLabel.Text = " Action Canceld"</P> <P>[tab][/tab]	btnaddNew.Enabled = True
[tab][/tab]	btnDelete.Enabled = True
[tab][/tab]	btnupdate.Enabled = True</P> <P>	End Sub</P> <P>#End Region</P> <P>#Region "Data Grid"</P> <P>	Private Sub DataGrid1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles DataGrid1.Click</P> <P>[tab][/tab]	Dim SqlStr As String</P> <P>[tab][/tab]	SqlStr = "Select * from Tblokkies where leidraad = " & DataGrid1.Item(DataGrid1.CurrentRowIndex, 0)</P> <P>[tab][/tab]	FillTextBox(SqlStr)
	End Sub</P> <P>#End Region</P> <P>#Region "Back to first form"</P> <P>	Private Sub btnback_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnback.Click</P> <P>[tab][/tab]	Me.Close()
[tab][/tab]	' Free the resources used by this form
[tab][/tab]	Me.Dispose(True)</P> <P>	End Sub</P> <P>#End Region</P> <P>#Region "Search in Listbox"
	Private Sub Txtsoek_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Txtsoek.TextChanged</P> <P>[tab][/tab]	Dim item As String = Txtsoek.Text.ToString()
[tab][/tab]	Dim index As Integer = ListBox1.FindString(item)
[tab][/tab]	If index = -1 Then
[tab][/tab][tab][/tab]	ListBox1.SelectedIndex = ListBox1.SelectedIndex
[tab][/tab]	Else
[tab][/tab][tab][/tab]	ListBox1.SetSelected(index, True)
[tab][/tab]	End If
	End Sub
#End Region</P> <P>End Class

#2 yordan

yordan

    Way Out Of Control - You need a life :)

  • [MODERATOR]
  • 4,677 posts

Posted 03 April 2009 - 02:41 PM

You first posted this in the tutorial section, and your topic looks like a question.
I moved your topic here, where is most probably it's place.
Regards
Yordan

#3 magiccode9

magiccode9

    Advanced Member

  • [HOSTED]
  • 162 posts
  • Gender:Male
  • myCENTs:77.89

Posted 29 May 2009 - 08:24 PM

If you are using Windows XP system, then you hard drive may be using ntfs filesystem.
Right-click a disk that hold your database and check if it is that filesystem.

If it is, follow these steps to see if it's help:

  • right-click the folder contains the database and choose properties.
  • click the permission tab.
  • assign modify permission to aspnet account by clicking add button on the permission tab.
  • A dialog box is showed. Press the find object button then click find.
  • Select the aspnet user account and click add
  • Click twice OK to close all dialog box.

You may now rerun your script to test the update function.
Back to Scripting

Reply to this topic



  


0 user(s) are reading this topic

0 members, 0 guests, 0 anonymous users

  1. Open Discussion & Free Web Hosting
  2. → Computers & Tech
  3. → Programming
  4. → Scripting
  5. Rules