Option Compare Database

Public rst As New ADODB.Recordset

Public IdAl As String

Public Function DomainName() As String

 Dim oSysInfo As Object

 Set oSysInfo = CreateObject("WinNTSystemInfo")

 DomainName = oSysInfo.DomainName

 Set oSysInfo = Nothing

End Function

Public Function UserName() As String

 Dim oSysInfo As Object

 Set oSysInfo = CreateObject("WinNTSystemInfo")

 UserName = oSysInfo.UserName

 Set oSysInfo = Nothing

End Function

Public Function ComputerName() As String

 Dim oSysInfo As Object

 Set oSysInfo = CreateObject("WinNTSystemInfo")

 ComputerName = oSysInfo.ComputerName

 Set oSysInfo = Nothing

End Function

Public Sub Sql_Calistir(varKomut As String)

On Error Resume Next

 Dim cmd As ADODB.Command 'kayıt kümesini ve Command nesnesini tanımla

 Set cmd = New ADODB.Command 'Command nesnesini örnekle

 cmd.CommandText = varKomut 'verilerin nereden alınacağını bildir

 cmd.ActiveConnection = CurrentProject.Connection 'bağlantı bilgilerini ayarla

 Set rst = cmd.Execute 'Execute metodunu kullanarak sonuç kümesini kayıt kümesi nesnesine getir

HataBul (Err.Number)

End Sub

Function HataBul(HataNo As Integer) As String

If Err.Number = 0 Then

 Else

 MsgBox "Hata oluştu işlemi Gerçekleştiremedim. " & Err.Number & " " & Err.Description

 End If

End Function