Ms Access veri kaydetme
Ms Access veri kaydı.
Bazı durumlarda Ms Access’e veri kaydı gerekebilir. Ms Access’e veri kaydı yapan örnek script’i aşağıda görebilirsiniz.
Imports System
Imports System.IO
Imports System.Windows.Forms
Imports Microsoft.VisualBasic
Imports System.Data
Namespace WinTr
Public Class MainClass
Public Tag_1 As UInt16
Public Tag_2 As UInt16
Public Tag_3 As UInt16
Public Sub Load
Try
Dim sqlconn As New OleDb.OleDbConnection
Dim sqlquery As New OleDb.OleDbCommand
Dim connString As String = “Provider=Microsoft.ACE.OLEDB.12.0;” & _
“Data Source=C:\\Database1.accdb;” & _
“Persist Security Info=False;”
sqlconn.ConnectionString = connString
sqlquery.Connection = sqlconn
sqlconn.Open()
sqlquery.CommandText = “INSERT INTO Table1 (Field1,Field2,Field3) VALUES (‘” & Tag_1 & “‘,'” & Tag_2 & “‘,'” & Tag_3 & “‘)”
‘sqlquery.Parameters.AddWithValue(“@Username”, txtUname.Text)
‘sqlquery.Parameters.AddWithValue(“@Password”, txtPass.Text)
sqlquery.ExecuteNonQuery()
sqlconn.Close()
Catch ex As Exception
MessageBox.Show(ex.Message)
End Try
End Sub
End Class
End Namespace
Not: Bu scripti kopyalayıp WinTr Script editör’e kopyaladığınızda tırnak işaretleri değişebilir. Ayrıca satırlara da dikkat etmelisiniz.
Ms Access veri okuma.
Imports System
Imports System.IO
Imports System.Windows.Forms
Imports Microsoft.VisualBasic
Imports System.Data
Namespace WinTr
Public Class MainClass
Public Tag_1 As UInt16
Public Tag_2 As UInt16
Public Tag_3 As UInt16
Public Sub Load
Try
Dim sqlconn As New OleDb.OleDbConnection
Dim sqlquery As New OleDb.OleDbCommand
‘Dim connString As String
‘connString = “Provider=Microsoft.ACE.OLEDB.12.0;Data Source=Data Source=C:\Users\Salih\Documents\Database1.accdb”
Dim connString As String = “Provider=Microsoft.ACE.OLEDB.12.0;” & _
“Data Source=C:\\Database1.accdb;” & _
“Persist Security Info=False;”
sqlconn.ConnectionString = connString
sqlquery.Connection = sqlconn
sqlconn.Open()
sqlquery.CommandText = “SELECT Field1,Field2,Field3 FROM Table1”
‘sqlquery.Parameters.AddWithValue(“@Username”, txtUname.Text)
‘sqlquery.Parameters.AddWithValue(“@Password”, txtPass.Text)
Dim reader As OleDb.OleDbDataReader = sqlquery.ExecuteReader()
If reader.HasRows Then
While reader.Read()
if isnumeric(reader(0)) Then Tag_1 = reader(0) Else Tag_1 = 0
if isnumeric(reader(1)) Then Tag_2 = reader(1) Else Tag_2 = 0
if isnumeric(reader(2)) Then Tag_3 = reader(2) Else Tag_3 = 0
Exit While
End While
End If
reader.Close()
sqlconn.Close()
Catch ex As Exception
MessageBox.Show(ex.Message)
End Try
End Sub
End Class
End Namespace
Son Yorumlar