{"id":624,"date":"2014-10-30T10:43:45","date_gmt":"2014-10-30T08:43:45","guid":{"rendered":"http:\/\/www.fultek.com.tr\/scada-yardim\/2014\/10\/ms-access-veri-kaydetme\/"},"modified":"2021-12-18T13:30:50","modified_gmt":"2021-12-18T11:30:50","slug":"ms-access-veri-kaydetme","status":"publish","type":"post","link":"https:\/\/www.fultek.com.tr\/scada-yardim\/2014\/10\/ms-access-veri-kaydetme\/","title":{"rendered":"Ms Access veri kaydetme"},"content":{"rendered":"

Ms Access veri kayd\u0131.<\/h3>\n

Baz\u0131 durumlarda Ms Access’e veri kayd\u0131 gerekebilir. Ms Access’e veri kayd\u0131 yapan \u00f6rnek script’i a\u015fa\u011f\u0131da g\u00f6rebilirsiniz.<\/p>\n

Imports<\/span> System<\/span><\/p>\n

Imports<\/span><\/span> System.IO<\/span><\/p>\n

Imports<\/span><\/span> System.Windows.Forms<\/span><\/p>\n

Imports<\/span><\/span> Microsoft.VisualBasic<\/span><\/p>\n

Imports<\/span><\/span> System.Data<\/span><\/p>\n

Namespace<\/span><\/span> WinTr<\/span><\/p>\n

Public<\/span><\/span> Class<\/span><\/span> MainClass<\/span><\/p>\n

Public<\/span><\/span> Tag_1 <\/span>As<\/span><\/span> UInt16<\/span><\/span><\/p>\n

Public<\/span><\/span> Tag_2 <\/span>As<\/span><\/span> UInt16<\/span><\/span><\/p>\n

Public<\/span><\/span> Tag_3 <\/span>As<\/span><\/span> UInt16<\/span><\/span><\/p>\n

Public<\/span><\/span> Sub<\/span><\/span> Load<\/span><\/p>\n

Try<\/span><\/span><\/p>\n

Dim<\/span><\/span> sqlconn <\/span>As<\/span><\/span> New<\/span><\/span> OleDb.OleDbConnection<\/span><\/p>\n

Dim<\/span><\/span> sqlquery <\/span>As<\/span><\/span> New<\/span><\/span> OleDb.OleDbCommand<\/span><\/p>\n

Dim<\/span><\/span> connString <\/span>As<\/span><\/span> String<\/span><\/span> = <\/span>“Provider=Microsoft.ACE.OLEDB.12.0;”<\/span><\/span> & _<\/span><\/p>\n

“Data Source=C:\\\\Database1.accdb;”<\/span><\/span> & _<\/span><\/p>\n

“Persist Security Info=False;”<\/span><\/span><\/p>\n

sqlconn.ConnectionString = connString<\/p>\n

sqlquery.Connection = sqlconn<\/p>\n

sqlconn.Open()<\/p>\n

sqlquery.CommandText = <\/span>“INSERT INTO Table1 (Field1,Field2,Field3) VALUES (‘”<\/span><\/span> & Tag_1 & <\/span>“‘,'”<\/span><\/span> & Tag_2 & <\/span>“‘,'”<\/span><\/span> & Tag_3 & <\/span>“‘)”<\/span><\/span><\/p>\n

‘sqlquery.Parameters.AddWithValue(“@Username”, txtUname.Text)<\/span><\/span><\/p>\n

‘sqlquery.Parameters.AddWithValue(“@Password”, txtPass.Text)<\/span><\/span><\/p>\n

sqlquery.ExecuteNonQuery()<\/p>\n

sqlconn.Close()<\/p>\n

Catch<\/span><\/span> ex <\/span>As<\/span><\/span> Exception<\/span><\/p>\n

MessageBox.Show(ex.Message)<\/p>\n

End<\/span><\/span> Try<\/span><\/span><\/p>\n

End<\/span><\/span> Sub<\/span><\/span><\/p>\n

End<\/span><\/span> Class<\/span><\/span><\/p>\n

End<\/span><\/span> Namespace<\/span><\/span><\/p>\n

 <\/p>\n

Not: Bu scripti kopyalay\u0131p WinTr Script edit\u00f6r\u2019e kopyalad\u0131\u011f\u0131n\u0131zda t\u0131rnak i\u015faretleri de\u011fi\u015febilir. Ayr\u0131ca sat\u0131rlara da dikkat etmelisiniz.<\/p>\n

 <\/p>\n

Ms Access veri okuma.<\/h3>\n

Imports<\/span> System<\/span><\/p>\n

Imports<\/span><\/span> System.IO<\/span><\/p>\n

Imports<\/span><\/span> System.Windows.Forms<\/span><\/p>\n

Imports<\/span><\/span> Microsoft.VisualBasic<\/span><\/p>\n

Imports<\/span><\/span> System.Data<\/span><\/p>\n

Namespace<\/span><\/span> WinTr<\/span><\/p>\n

Public<\/span><\/span> Class<\/span><\/span> MainClass<\/span><\/p>\n

Public<\/span><\/span> Tag_1 <\/span>As<\/span><\/span> UInt16<\/span><\/span><\/p>\n

Public<\/span><\/span> Tag_2 <\/span>As<\/span><\/span> UInt16<\/span><\/span><\/p>\n

Public<\/span><\/span> Tag_3 <\/span>As<\/span><\/span> UInt16<\/span><\/span><\/p>\n

Public<\/span><\/span> Sub<\/span><\/span> Load<\/span><\/p>\n

Try<\/span><\/span><\/p>\n

Dim<\/span><\/span> sqlconn <\/span>As<\/span><\/span> New<\/span><\/span> OleDb.OleDbConnection<\/span><\/p>\n

Dim<\/span><\/span> sqlquery <\/span>As<\/span><\/span> New<\/span><\/span> OleDb.OleDbCommand<\/span><\/p>\n

‘Dim connString As String<\/span><\/span><\/p>\n

‘connString = “Provider=Microsoft.ACE.OLEDB.12.0;Data Source=Data Source=C:\\Users\\Salih\\Documents\\Database1.accdb”<\/span><\/span><\/p>\n

Dim<\/span><\/span> connString <\/span>As<\/span><\/span> String<\/span><\/span> = <\/span>“Provider=Microsoft.ACE.OLEDB.12.0;”<\/span><\/span> & _<\/span><\/p>\n

“Data Source=C:\\\\Database1.accdb;”<\/span><\/span> & _<\/span><\/p>\n

“Persist Security Info=False;”<\/span><\/span><\/p>\n

sqlconn.ConnectionString = connString<\/p>\n

sqlquery.Connection = sqlconn<\/p>\n

sqlconn.Open()<\/p>\n

sqlquery.CommandText = <\/span>“SELECT Field1,Field2,Field3 FROM Table1”<\/span><\/span><\/p>\n

‘sqlquery.Parameters.AddWithValue(“@Username”, txtUname.Text)<\/span><\/span><\/p>\n

‘sqlquery.Parameters.AddWithValue(“@Password”, txtPass.Text)<\/span><\/span><\/p>\n

Dim<\/span><\/span> reader <\/span>As<\/span><\/span> OleDb.OleDbDataReader = sqlquery.ExecuteReader()<\/span><\/p>\n

If<\/span><\/span> reader.HasRows <\/span>Then<\/span><\/span><\/p>\n

While<\/span><\/span> reader.Read()<\/span><\/p>\n

if<\/span><\/span> isnumeric(reader(0)<\/span>)<\/span><\/span> Then<\/span><\/span> Tag_1 = reader(0) <\/span>Else<\/span><\/span> Tag_1 = 0<\/span><\/p>\n

if<\/span><\/span> isnumeric(reader(1)<\/span>)<\/span><\/span> Then<\/span><\/span> Tag_2 = reader(1) <\/span>Else<\/span><\/span> Tag_2 = 0<\/span><\/p>\n

if<\/span><\/span> isnumeric(reader(2)<\/span>)<\/span><\/span> Then<\/span><\/span> Tag_3 = reader(2) <\/span>Else<\/span><\/span> Tag_3 = 0<\/span><\/p>\n

Exit<\/span><\/span> While<\/span><\/span><\/p>\n

End<\/span><\/span> While<\/span><\/span><\/p>\n

End<\/span><\/span> If<\/span><\/span><\/p>\n

reader.Close()<\/p>\n

sqlconn.Close()<\/p>\n

Catch<\/span><\/span> ex <\/span>As<\/span><\/span> Exception<\/span><\/p>\n

MessageBox.Show(ex.Message)<\/p>\n

End<\/span><\/span> Try<\/span><\/span><\/p>\n

End<\/span><\/span> Sub<\/span><\/span><\/p>\n

End<\/span><\/span> Class<\/span><\/span><\/p>\n

End<\/span><\/span> Namespace<\/span><\/span><\/p>\n

 <\/p>\n","protected":false},"excerpt":{"rendered":"

Ms Access veri kayd\u0131. Baz\u0131 durumlarda Ms Access’e veri kayd\u0131 gerekebilir. Ms Access’e veri kayd\u0131 yapan \u00f6rnek script’i a\u015fa\u011f\u0131da g\u00f6rebilirsiniz. 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 […]<\/p>\n","protected":false},"author":1,"featured_media":0,"comment_status":"open","ping_status":"closed","sticky":false,"template":"","format":"standard","meta":{"_swpsp_post_exclude":false,"footnotes":""},"categories":[20],"tags":[265],"class_list":["post-624","post","type-post","status-publish","format-standard","hentry","category-scada-script","tag-scada-ms-access"],"yoast_head":"\nMs Access veri kaydetme - SCADA E\u011fitim Sitesi<\/title>\n<meta name=\"robots\" content=\"index, follow, max-snippet:-1, max-image-preview:large, max-video-preview:-1\" \/>\n<link rel=\"canonical\" href=\"https:\/\/www.fultek.com.tr\/scada-yardim\/2014\/10\/ms-access-veri-kaydetme\/\" \/>\n<meta name=\"twitter:label1\" content=\"Yazan:\" \/>\n\t<meta name=\"twitter:data1\" content=\"Salih\" \/>\n\t<meta name=\"twitter:label2\" content=\"Tahmini okuma s\u00fcresi\" \/>\n\t<meta name=\"twitter:data2\" content=\"2 dakika\" \/>\n<script type=\"application\/ld+json\" class=\"yoast-schema-graph\">{\"@context\":\"https:\\\/\\\/schema.org\",\"@graph\":[{\"@type\":\"Article\",\"@id\":\"https:\\\/\\\/www.fultek.com.tr\\\/scada-yardim\\\/2014\\\/10\\\/ms-access-veri-kaydetme\\\/#article\",\"isPartOf\":{\"@id\":\"https:\\\/\\\/www.fultek.com.tr\\\/scada-yardim\\\/2014\\\/10\\\/ms-access-veri-kaydetme\\\/\"},\"author\":{\"name\":\"Salih\",\"@id\":\"https:\\\/\\\/www.fultek.com.tr\\\/scada-yardim\\\/#\\\/schema\\\/person\\\/b439f08807fdc9e273a233976c5eb1be\"},\"headline\":\"Ms Access veri kaydetme\",\"datePublished\":\"2014-10-30T08:43:45+00:00\",\"dateModified\":\"2021-12-18T11:30:50+00:00\",\"mainEntityOfPage\":{\"@id\":\"https:\\\/\\\/www.fultek.com.tr\\\/scada-yardim\\\/2014\\\/10\\\/ms-access-veri-kaydetme\\\/\"},\"wordCount\":367,\"commentCount\":0,\"keywords\":[\"Scada Ms Access\"],\"articleSection\":[\"Script Writer\"],\"inLanguage\":\"tr\",\"potentialAction\":[{\"@type\":\"CommentAction\",\"name\":\"Comment\",\"target\":[\"https:\\\/\\\/www.fultek.com.tr\\\/scada-yardim\\\/2014\\\/10\\\/ms-access-veri-kaydetme\\\/#respond\"]}]},{\"@type\":\"WebPage\",\"@id\":\"https:\\\/\\\/www.fultek.com.tr\\\/scada-yardim\\\/2014\\\/10\\\/ms-access-veri-kaydetme\\\/\",\"url\":\"https:\\\/\\\/www.fultek.com.tr\\\/scada-yardim\\\/2014\\\/10\\\/ms-access-veri-kaydetme\\\/\",\"name\":\"Ms Access veri kaydetme - SCADA E\u011fitim Sitesi\",\"isPartOf\":{\"@id\":\"https:\\\/\\\/www.fultek.com.tr\\\/scada-yardim\\\/#website\"},\"datePublished\":\"2014-10-30T08:43:45+00:00\",\"dateModified\":\"2021-12-18T11:30:50+00:00\",\"author\":{\"@id\":\"https:\\\/\\\/www.fultek.com.tr\\\/scada-yardim\\\/#\\\/schema\\\/person\\\/b439f08807fdc9e273a233976c5eb1be\"},\"breadcrumb\":{\"@id\":\"https:\\\/\\\/www.fultek.com.tr\\\/scada-yardim\\\/2014\\\/10\\\/ms-access-veri-kaydetme\\\/#breadcrumb\"},\"inLanguage\":\"tr\",\"potentialAction\":[{\"@type\":\"ReadAction\",\"target\":[\"https:\\\/\\\/www.fultek.com.tr\\\/scada-yardim\\\/2014\\\/10\\\/ms-access-veri-kaydetme\\\/\"]}]},{\"@type\":\"BreadcrumbList\",\"@id\":\"https:\\\/\\\/www.fultek.com.tr\\\/scada-yardim\\\/2014\\\/10\\\/ms-access-veri-kaydetme\\\/#breadcrumb\",\"itemListElement\":[{\"@type\":\"ListItem\",\"position\":1,\"name\":\"Home\",\"item\":\"https:\\\/\\\/www.fultek.com.tr\\\/scada-yardim\\\/\"},{\"@type\":\"ListItem\",\"position\":2,\"name\":\"Ms Access veri kaydetme\"}]},{\"@type\":\"WebSite\",\"@id\":\"https:\\\/\\\/www.fultek.com.tr\\\/scada-yardim\\\/#website\",\"url\":\"https:\\\/\\\/www.fultek.com.tr\\\/scada-yardim\\\/\",\"name\":\"SCADA E\u011fitim Sitesi\",\"description\":\"SCADA program\u0131 hakk\u0131nda bilmek istedikleriniz.\",\"potentialAction\":[{\"@type\":\"SearchAction\",\"target\":{\"@type\":\"EntryPoint\",\"urlTemplate\":\"https:\\\/\\\/www.fultek.com.tr\\\/scada-yardim\\\/?s={search_term_string}\"},\"query-input\":{\"@type\":\"PropertyValueSpecification\",\"valueRequired\":true,\"valueName\":\"search_term_string\"}}],\"inLanguage\":\"tr\"},{\"@type\":\"Person\",\"@id\":\"https:\\\/\\\/www.fultek.com.tr\\\/scada-yardim\\\/#\\\/schema\\\/person\\\/b439f08807fdc9e273a233976c5eb1be\",\"name\":\"Salih\",\"image\":{\"@type\":\"ImageObject\",\"inLanguage\":\"tr\",\"@id\":\"https:\\\/\\\/secure.gravatar.com\\\/avatar\\\/71953beeb6b97dd8eeecb5d9b86339eedb7662215ebdf0761d17ac26bc31f94b?s=96&d=mm&r=g\",\"url\":\"https:\\\/\\\/secure.gravatar.com\\\/avatar\\\/71953beeb6b97dd8eeecb5d9b86339eedb7662215ebdf0761d17ac26bc31f94b?s=96&d=mm&r=g\",\"contentUrl\":\"https:\\\/\\\/secure.gravatar.com\\\/avatar\\\/71953beeb6b97dd8eeecb5d9b86339eedb7662215ebdf0761d17ac26bc31f94b?s=96&d=mm&r=g\",\"caption\":\"Salih\"},\"sameAs\":[\"http:\\\/\\\/www.fultek.com.tr\"],\"url\":\"https:\\\/\\\/www.fultek.com.tr\\\/scada-yardim\\\/author\\\/salih\\\/\"}]}<\/script>\n<!-- \/ Yoast SEO plugin. -->","yoast_head_json":{"title":"Ms Access veri kaydetme - SCADA E\u011fitim Sitesi","robots":{"index":"index","follow":"follow","max-snippet":"max-snippet:-1","max-image-preview":"max-image-preview:large","max-video-preview":"max-video-preview:-1"},"canonical":"https:\/\/www.fultek.com.tr\/scada-yardim\/2014\/10\/ms-access-veri-kaydetme\/","twitter_misc":{"Yazan:":"Salih","Tahmini okuma s\u00fcresi":"2 dakika"},"schema":{"@context":"https:\/\/schema.org","@graph":[{"@type":"Article","@id":"https:\/\/www.fultek.com.tr\/scada-yardim\/2014\/10\/ms-access-veri-kaydetme\/#article","isPartOf":{"@id":"https:\/\/www.fultek.com.tr\/scada-yardim\/2014\/10\/ms-access-veri-kaydetme\/"},"author":{"name":"Salih","@id":"https:\/\/www.fultek.com.tr\/scada-yardim\/#\/schema\/person\/b439f08807fdc9e273a233976c5eb1be"},"headline":"Ms Access veri kaydetme","datePublished":"2014-10-30T08:43:45+00:00","dateModified":"2021-12-18T11:30:50+00:00","mainEntityOfPage":{"@id":"https:\/\/www.fultek.com.tr\/scada-yardim\/2014\/10\/ms-access-veri-kaydetme\/"},"wordCount":367,"commentCount":0,"keywords":["Scada Ms Access"],"articleSection":["Script Writer"],"inLanguage":"tr","potentialAction":[{"@type":"CommentAction","name":"Comment","target":["https:\/\/www.fultek.com.tr\/scada-yardim\/2014\/10\/ms-access-veri-kaydetme\/#respond"]}]},{"@type":"WebPage","@id":"https:\/\/www.fultek.com.tr\/scada-yardim\/2014\/10\/ms-access-veri-kaydetme\/","url":"https:\/\/www.fultek.com.tr\/scada-yardim\/2014\/10\/ms-access-veri-kaydetme\/","name":"Ms Access veri kaydetme - SCADA E\u011fitim Sitesi","isPartOf":{"@id":"https:\/\/www.fultek.com.tr\/scada-yardim\/#website"},"datePublished":"2014-10-30T08:43:45+00:00","dateModified":"2021-12-18T11:30:50+00:00","author":{"@id":"https:\/\/www.fultek.com.tr\/scada-yardim\/#\/schema\/person\/b439f08807fdc9e273a233976c5eb1be"},"breadcrumb":{"@id":"https:\/\/www.fultek.com.tr\/scada-yardim\/2014\/10\/ms-access-veri-kaydetme\/#breadcrumb"},"inLanguage":"tr","potentialAction":[{"@type":"ReadAction","target":["https:\/\/www.fultek.com.tr\/scada-yardim\/2014\/10\/ms-access-veri-kaydetme\/"]}]},{"@type":"BreadcrumbList","@id":"https:\/\/www.fultek.com.tr\/scada-yardim\/2014\/10\/ms-access-veri-kaydetme\/#breadcrumb","itemListElement":[{"@type":"ListItem","position":1,"name":"Home","item":"https:\/\/www.fultek.com.tr\/scada-yardim\/"},{"@type":"ListItem","position":2,"name":"Ms Access veri kaydetme"}]},{"@type":"WebSite","@id":"https:\/\/www.fultek.com.tr\/scada-yardim\/#website","url":"https:\/\/www.fultek.com.tr\/scada-yardim\/","name":"SCADA E\u011fitim Sitesi","description":"SCADA program\u0131 hakk\u0131nda bilmek istedikleriniz.","potentialAction":[{"@type":"SearchAction","target":{"@type":"EntryPoint","urlTemplate":"https:\/\/www.fultek.com.tr\/scada-yardim\/?s={search_term_string}"},"query-input":{"@type":"PropertyValueSpecification","valueRequired":true,"valueName":"search_term_string"}}],"inLanguage":"tr"},{"@type":"Person","@id":"https:\/\/www.fultek.com.tr\/scada-yardim\/#\/schema\/person\/b439f08807fdc9e273a233976c5eb1be","name":"Salih","image":{"@type":"ImageObject","inLanguage":"tr","@id":"https:\/\/secure.gravatar.com\/avatar\/71953beeb6b97dd8eeecb5d9b86339eedb7662215ebdf0761d17ac26bc31f94b?s=96&d=mm&r=g","url":"https:\/\/secure.gravatar.com\/avatar\/71953beeb6b97dd8eeecb5d9b86339eedb7662215ebdf0761d17ac26bc31f94b?s=96&d=mm&r=g","contentUrl":"https:\/\/secure.gravatar.com\/avatar\/71953beeb6b97dd8eeecb5d9b86339eedb7662215ebdf0761d17ac26bc31f94b?s=96&d=mm&r=g","caption":"Salih"},"sameAs":["http:\/\/www.fultek.com.tr"],"url":"https:\/\/www.fultek.com.tr\/scada-yardim\/author\/salih\/"}]}},"_links":{"self":[{"href":"https:\/\/www.fultek.com.tr\/scada-yardim\/wp-json\/wp\/v2\/posts\/624","targetHints":{"allow":["GET"]}}],"collection":[{"href":"https:\/\/www.fultek.com.tr\/scada-yardim\/wp-json\/wp\/v2\/posts"}],"about":[{"href":"https:\/\/www.fultek.com.tr\/scada-yardim\/wp-json\/wp\/v2\/types\/post"}],"author":[{"embeddable":true,"href":"https:\/\/www.fultek.com.tr\/scada-yardim\/wp-json\/wp\/v2\/users\/1"}],"replies":[{"embeddable":true,"href":"https:\/\/www.fultek.com.tr\/scada-yardim\/wp-json\/wp\/v2\/comments?post=624"}],"version-history":[{"count":6,"href":"https:\/\/www.fultek.com.tr\/scada-yardim\/wp-json\/wp\/v2\/posts\/624\/revisions"}],"predecessor-version":[{"id":636,"href":"https:\/\/www.fultek.com.tr\/scada-yardim\/wp-json\/wp\/v2\/posts\/624\/revisions\/636"}],"wp:attachment":[{"href":"https:\/\/www.fultek.com.tr\/scada-yardim\/wp-json\/wp\/v2\/media?parent=624"}],"wp:term":[{"taxonomy":"category","embeddable":true,"href":"https:\/\/www.fultek.com.tr\/scada-yardim\/wp-json\/wp\/v2\/categories?post=624"},{"taxonomy":"post_tag","embeddable":true,"href":"https:\/\/www.fultek.com.tr\/scada-yardim\/wp-json\/wp\/v2\/tags?post=624"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}