AccessTr.neT
programda tablo varmı baksın yoksa bağlasın - Baskı Önizleme

+- AccessTr.neT (https://accesstr.net)
+-- Forum: Microsoft Access (https://accesstr.net/forum-microsoft-access.html)
+--- Forum: Access Cevaplanmış Soruları (https://accesstr.net/forum-access-cevaplanmis-sorulari.html)
+--- Konu Başlığı: programda tablo varmı baksın yoksa bağlasın (/konu-programda-tablo-varmi-baksin-yoksa-baglasin.html)

programda tablo varmı baksın yoksa bağlasın - accessman - 11/05/2012

hayırlı cumalar
programda ilgili tablo var mı diye nasıl kod yazmalıyız
yani önce
tablo1
programımızda varmı diye bakacak yoksa bağlayacak

if tablo1 var mı then
msgbox "tablo var tekrara gerek yok"
else
DoCmd.TransferDatabase acLink, "ODBC", "ODBC;DSN=eleman", acTable, "personel", "personel", False
end if

buradaki tablo1 in olup olmadığını kontrol edeceğiz
teşekkürler
bunu nasıl kullanabilirim
Kod:
Dim Data As New adodb.Connection
Dim Kayit As New adodb.Recordset

Data.Open "Driver={Microsoft Access Driver (*.mdb)};" & "DBQ=C:webing.mdb"

Set Kayit = Data.OpenSchema(adSchemaTables)
If Kayit.RecordCount = 0 Then
MsgBox "Veritaban?nda Tablo Bulunamad?", 48, "Bilgilendirme"
Else
Do Until Kayit.EOF
If UCase(Kayit("TABLE_TYPE")) = "TABLE" Then
MsgBox Kayit("TABLE_NAME")
End If
Kayit.MoveNext
Loop
End If
Kayit.Close
proje adının
C:\Users\zaman\Desktop\calısan.mdb
olduğu ve sogulanan tablonun adının
personel
olduğunu düşünürsek nereleri nasıl değiştireceğiz
bir de bu var
Kod:
Imports System.Data.OleDb
Public Class Form1
Dim con As OleDbConnection

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim con As New OleDbConnection("provider=microsoft.jet.oledb.4.0; data source=ayarlar.mdb")
con.Open()
Dim dt As DataTable = con.GetSchema("tables")
Me.ListBox1.Items.Clear()
Dim dr As DataRow
For Each dr In dt.Rows
ListBox1.Items.Add(dr("table_name").ToString)
Next
End Sub
End Class
Kod:
SELECT MSysObjects.Name
FROM MSysObjects
WHERE (((MSysObjects.Connect)="DSN=calısan;") AND ((MSysObjects.Name)=[ForeignName] And (MSysObjects.Name)="personel") AND ((MSysObjects.Type)=4));
sorgusu ile tabloyu projede bulabiliyoruz ama bunu nasıl if li kodun içine yazmalıyız

Cvp: programda tablo varmı baksın yoksa bağlasın - alpeki99 - 11/05/2012

Bir tabloda alan adının olup olmadığını kontrol etme

Tablo ve alan kontrolü ya da tablo varmı alan varmı sorusuna cevap.

Cvp: programda tablo varmı baksın yoksa bağlasın - accessman - 14/05/2012

teşekkürler
inceleyeceğim

Cvp: programda tablo varmı baksın yoksa bağlasın - alpeki99 - 15/05/2012

Konuyu taşıyalım mı? Sorun halledilemedi ise bilgi verin lütfen.