oussama_1

Mark Question Solved please

Project - add reference - com - Microsoft access 12.0 object library Code : Public Class Form1 Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load Dim Connection As New OleDb.OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;" & "Data Source='" & "YOURPATH\access.accdb" & "';" & "Persist Security Info=False;" & "Jet OLEDB:Database Password=" & …

Hi I have access database with two tables With a Relationship i can insert records into the first table with no problems but when im trying to insert a record in the second table i got error message Error message : Syntax error in INSERT INTO statement. - Microsoft Office …

Private Sub Form_MouseWheel(ByVal sender As System.Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Me.MouseWheel _scaleDelta = Math.Sqrt(PictureBox1.Width * PictureBox1.Height) * 0.00005 If e.Delta < 0 Then PictureBox1.Size = New Size(PictureBox1.Size.Width - 10, PictureBox1.Size.Height - 10) ElseIf e.Delta > 0 Then PictureBox1.Size = New Size(PictureBox1.Size.Width + 10, PictureBox1.Size.Height + 10) End If End …

hi, your code works perfectly -check your typing -account exist -correct password -gmail account

Dim con = New OleDb.OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Resumen Guia\Base.mdb") Dim dataadapter1 As New System.Data.OleDb.OleDbDataAdapter() dataadapter1 = New System.Data.OleDb.OleDbDataAdapter("select * from Tabla ", con) Dim DtSet As System.Data.DataSet DtSet = New System.Data.DataSet dataadapter1.Fill(DtSet) ComboBox1.DataSource = Nothing ComboBox1.DataSource = DtSet.Tables(0) con.Close()

for your application to work on both operating system (32bit and 64bit) choose X86 platform Build - Configuration Manager - Active Solution platform - new - new platform select X86

try this Open ss.txt >> File >> Save as >> set Encoding to Unicode and replace file

Try this 'Read data according to CandidateReferenceNumber Dim MyCommand As New System.Data.OleDb.OleDbDataAdapter() ' * = everything if combobox1.selecteditem = "" or nothing then msgbox("Enter CandidateReferenceNumber") else MyCommand = New System.Data.OleDb.OleDbDataAdapter("select * from tblCandidates WHERE fldCandidateReferenceNumber = " & combobox1.selecteditem, Connection) Dim DtSet1 As System.Data.DataSet DtSet1 = New System.Data.DataSet MyCommand.Fill(DtSet1) 'Candidate …