Türker Şentürk

Projeye Microsoft ActiveX Database Components 2.5 veya
yukarısını referans gösterin ve de kodu yapıştırın.

Dim dbvbt As New adodb.Connection 

  Dim rsvbt As New adodb.Recordset 

  dbvbt.Open “Driver={Microsoft Access Driver (*.mdb)};” & _ 

             “DBQ=C:\vbturk.mdb” 

  Set rsvbt = dbvbt.OpenSchema(adSchemaTables) 

  Do Until rsvbt.EOF 

     If UCase(rsvbt(“TABLE_TYPE”)) = “TABLE” Then 

      MsgBox rsvbt(“TABLE_NAME”) 

     End If 

     rsvbt.MoveNext 

  Loop 

  rsvbt.Close 

Ağdaki MsSQL serverleri listeleyeceğimiz bu uygulamada formunuza bir listbox ekleyin ve adını “lstServers” olarak değiştirin, daha sonra Project>References den “Microsoft SQLDMO Object Library” kütüphanesini projenize ekleyin.

Option Explicit

Private Sub Form_Activate()

    Dim mDMOApp As New SQLDMO.Application

    Dim mNames As SQLDMO.NameList

    Dim t As Integer

    Set mDMOApp = New SQLDMO.Application

    Set mNames = mDMOApp.ListAvailableSQLServers()

    lstServers.Clear

    For t = 1 To mNames.Count

        lstServers.AddItem mNames.Item(t)

    Next

End Sub

mDMOApp nesnesinin ListAvailableSQLServers() fonksiyonu geriye NameList tipinde collection döndürüyor. Bu uygulamada kendi makinanızdaki MsSQL Server “(local)” olarak görünecektir(instance name belirtilmemişse), ağdaki diğer makinelerdeki serverler ise Domain adı olarak listelenir.

Visual Basic ile Access dosyası oluşturmanın birkaç yolu vardır. DAO kullanarak oluşturmayı sitede gördüğüm için diğer bir yoldan bahsetmek istiyorum. İlk olarak projemize Project->References menüsünden Microsoft ActiveX Data Objects ve Microsoft ADO Ext. for DDL and Security kütüphanelerini ekliyoruz. Sonra; Dim cnBaglanti as ADODB.Connection Dim catAccess as ADOX.Catalog Dim tbTablo as ADOX.Table Set cnBaglanti=New Connection Set catAccess=New Catalog Set tbTablo=New Table catAccess.Create “Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\dosya.mdb” ‘Dosyamız oluştu,fakat tablo oluşturmadık cnBaglanti.Open “Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\dosya.mdb” catAccess.ActiveConnection = cnBaglanti tbTablo.Name = “tablo_ismi” tbTablo.Columns.Append “kolon_ismi”, adVarWChar catAccess.Tables.Append tbTablo Set catAccess = Nothing Set tbTablo = Nothing ‘Şu anda tek kolonlu bir tablosu olan Access dosyası oluşturduk

MYSQL’ bağlanmak için öncelikle MySQL Connector/ODBC 3.51 sürücüsünün ODBC’ye yüklü olması gerekir. Bu sürücüyü http://dev.mysql.com/downloads/connector/odbc/3.51.html   adresinden indirebilirsiniz.

Sürücü yükleme işlemini tamamladıktan sonra artık işimiz çok kolay.

Dim Ado1 As New ADODB.Connection

Dim cs As String

Me.MousePointer = 11

cs = “Driver={MySQL ODBC 3.51 Driver}; Server=mysql_server_adresi; Port=3306; Option=3; Socket=; Stmt=; Database=veritabanı_adı; Uid=kullanıcı_adı; Pwd=Sifreniz;”

Ado1.Open (cs)

Me.MousePointer = 0

…. 

İşte hepsi bu…

Report nesnelerini text-file olarak kaydetmenin basit bir yolunu merak ettiyseniz, iste size cözüm:

Application.SaveAsText acReport, “rptÖrnek”, “c:\rptÖrnek.txt”

Application’den sonra yazdiginiz noktadan sonra “SaveAsText” metodunu acilan kontext-menüden göremezseniz sasmayin. Bu gizli bir metod !

Ayni sekilde “LoadFromText” metoduyla daha önce text-file olarak arsivlediginiz Report-nesnesini Access-veritabanina cekebilirsiniz. Örnek:

Application.LoadFromText acReport, “rptÖrnek”, “c:\rptÖrnek.txt”