Access Data Görüntüleme
Tarih
07/06/2010 11:26
Konu Sahibi
ogulcan92
Yorumlar
12
Okunma
3772
Konuyu Oyla:
  • Derecelendirme: 0/5 - 0 oy
  • 5
  • 4
  • 3
  • 2
  • 1

Derecelendirme: 0/5 - 0 oy



ogulcan92
Aktif Üye
Kullanici Avatari
Aktif Üye
1.160
06/05/2009
477
İzmir
Ofis 2003
07/08/2015,11:50
Merhaba Arkadaşlar
Access datalarınıza bakabileceğiniz bir program.Geliştirmek sizlere kalmış kolay gelsin.

Not:2003 ve altı veri tabanlarını destekler.

Access Data Görüntüleme 

Kod:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
'Forma Eklenecek Kontroller
'1 Adet ComboBox     Adı  cmbDatabase Olacak
'1   "  ListBox       "   dblist         "
'1   "  Datagrid1     "   Datagrid1      "
'1   "  CommondButon  "   cmdListele     "
'1   "  Adodc         "   Adodc1         "
'1   "  CommonDialog  "   CommonDialog1  "
'1   "  Module        "   Module1        "

'MODULE YAZILACAK KOD Buradan Başlıyor.

Public ADO As Object
Public recset As New ADODB.Recordset
Public dbFile As String
Public dbFile2 As String

Public Function ADOConnection(dbFile As String)
    Set ADO = CreateObject("Adodb.Connection")
    If ADO.State <> 0 Then ADO.Close
        ADO.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & dbFile & ";Persist Security Info=False"
        Set recset = ADO.OpenSchema(adSchemaTables)
        Do While Not recset.EOF
            If UCase(Left(recset.Fields("TABLE_NAME"), 4)) <> "MSYS" Then Form1.dblist.AddItem (recset.Fields("TABLE_NAME"))
            recset.MoveNext
        Loop
End Function

Public Function CenterScreen(frmform As Form)
    frmform.Left = (Screen.Width - frmform.Width) / 2
    frmform.Top = (Screen.Height - frmform.Height) / 2
End Function

'Module Yazılacak Kod Burada Son Buluyor.

'FORMA YAZILACAK KOD Buradan Başlıyor.

Private Sub cmbDatabase_DropDown()
CommonDialog1.ShowOpen
    cmbDatabase.Text = CommonDialog1.FileName
End Sub

Private Sub cmdListele_Click()
   dblist.Clear
    If CommonDialog1.FileName <> "" Then ADOConnection CommonDialog1.FileName
    dbFile2 = CommonDialog1.FileName
End Sub

Private Sub dblist_Click()
 With Adodc1
        .ConnectionString = ADO
        .CommandType = adCmdText
        .RecordSource = "Select * From " & Me.dblist.Text & ""
        Set Datagrid1.DataSource = Adodc1
        .Refresh
    End With
Exit Sub
End Sub

Private Sub Form_Load()
 With Adodc1
        .ConnectionString = dbFile
        .CommandType = adCmdText
End With
CenterScreen Me
End Sub


MsDataGrid Nesnesindeki sonucu yazıcıya göndermek için

Kod:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
Private Sub cmdYazdir_Click()
Call GridPrint(Datagrid1)
End Sub


Public Sub GridPrint(gridQuery As DataGrid)
Dim I         As Integer
Dim J         As Integer
Dim PTab      As Integer
   For I = 0 To gridQuery.ApproxCount - 1
      PTab = 20
      If Printer.CurrentY + Printer.TextHeight(gridQuery.Text) > Printer.ScaleHeight - 0 Then
         Printer.NewPage
      End If
      On Error Resume Next
      gridQuery.Row = I
      On Error GoTo 0
      For J = 0 To gridQuery.Columns.Count - 1
         gridQuery.Col = J
         Printer.Print Trim$(gridQuery.Text); Tab(PTab);
         PTab = PTab + 20
      Next
      Printer.Print
   Next
Printer.EndDoc
End Sub

Cevapla


hegu
Aktif Üye
Kullanici Avatari
Aktif Üye
H....
452
03/11/2008
18
Konya
Ofis 2003
04/12/2016,23:11
emeğine sağlık çok teşekkür ederim
Cevapla


ercansahin
BlackEagle
Kullanici Avatari
Uzman
E.... Ş....
3.738
14/11/2008
Ankara
Ofis 2010 32 Bit
Bugün,01:16
Sn hocam teşekkürler. Emeğinize sağlık. Hemen hayata geçirmeli..Img-grin
Cevapla


ozanakkaya
sledgeab
Kullanici Avatari
Kurucu
O.... A....
9.029
29/01/2008
Denizli
Polis Memuru
Ofis 2010 32 Bit
Teşekkürler.
Cevapla


benremix
Uzman
Kullanici Avatari
Uzman
R.... S....
4.432
17/05/2009
365
Ankara
Ofis 2010
Dün,09:18
Sn Oğulcan92 bu değerli bilgi ve paylaşım için teşekkürler. Saygılar...
Bilgi paylaşıldıkça çoğalır....
Her engel, yaşam koşullarınızı daha iyileştirecek bir fırsattır.


Access için her zaman lazım olacak konu başlıkları listesi 


Cevapla


assenucler

Kullanici Avatari
Onursal
A.... S.... Ş....
2.052
31/10/2008
63
İstanbul
-
29/11/2016,00:04
Dostlar merhaba;

Dosya yüklenmiyor ve aşağıdaki gibi ileti alıyorum.

Ne yapmalıyım?


Ek Dosyalar Ekran Görüntüleri
   
Cevapla







Konuyu Okuyanlar: 1 Ziyaretçi



Türkçe Çeviri: MCTR, Forum Yazılımı: MyBB, © 2002-2016 MyBB Group.
DMCA.com Protection Status
© Desing by XSTYLED| Develops by ozanakkaya