Access Data Görüntüleme
Tarih
07/06/2010 11:26
Konu Sahibi
ogulcan92
Yorumlar
12
Okunma
3881
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
Sponsor Reklam
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....
457
03/11/2008
18
Konya
Ofis 2003
Dün,14:53
emeğine sağlık çok teşekkür ederim
Cevapla

ercansahin
BlackEagle
Kullanici Avatari
Uzman
E.... Ş....
3.739
14/11/2008
Ankara
Ofis 2010 32 Bit
Dün,20:10
Sponsor Reklam
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.296
29/01/2008
Denizli
Polis Memuru
Ofis 2010 32 Bit
Bugün,09:11
Teşekkürler.
Cevapla

benremix
Uzman
Kullanici Avatari
Uzman
R.... S....
4.432
17/05/2009
365
Ankara
Ofis 2010
Dün,06:29
Sponsor Reklam
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.053
31/10/2008
63
İstanbul
-
14/02/2017,20:46
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, Yazılım: MyBB, © 2002-2017 MyBB Group.
DMCA.com Protection Status
© Desing by XSTYLED| Develops by ozanakkaya