Serkan

Bu kullanıcı herhangi bir kişisel bilgi paylaşmamış

Serkan tarafından yayınlananlar

Odbc Data Kaynağı Oluşturma

28 May

Serkan tarafından Visual Basic kategorisinde yayınlanmıştır

Private Declare Function SQLConfigDataSource Lib "ODBCCP32.DLL" _
(ByVal hwndParent As Long, ByVal fRequest As Long, _
ByVal lpszDriver As String, ByVal lpszAttributes As String) As Long
Public db As ADODB.Connection
Public dbr1 As ADODB.Recordset
Public connString As String
Public Sub Connect()
If Len(Dir$("c:\Sample.dsn")) &lt; 1 Then
Call Create
End If
connString = "DSN=Sample;"
Set db = New ADODB.Connection
db.Open connString
Set dbr1 = New ADODB.Recordset
dbr1.Open "Your Table", db, adOpenKeyset, adLockOptimistic
End Sub
Private Function CreateAccessDSN(DSNName As String, DatabaseFullPath As String) As Boolean
Dim sAttributes As String
sAttributes = "DSN=" &amp; DSNName &amp; Chr(0)
sAttributes = sAttributes &amp; "DBQ=" &amp; DatabaseFullPath &amp; Chr(0)
CreateAccessDSN = CreateDSN("Microsoft Access Driver (*.mdb)", sAttributes)
End Function
Private Function CreateDSN(Driver As String, Attributes As String) As Boolean
CreateDSN = SQLConfigDataSource(0&amp;, 1, Driver, Attributes)
End Function
Private Sub Create()
Dim blnRetVal As Boolean
blnRetVal = CreateAccessDSN("SampleName", "C:\YourDatabase.mdb")
End Sub
Private Declare Function SQLConfigDataSource Lib "ODBCCP32.DLL" _ (ByVal hwndParent As Long, ByVal fRequest As Long, _ ByVal lpszDriver As String, ByVal lpszAttributes As String) As Long Public db As ADODB.Connection Public dbr1 As ADODB.Recordset Public connString As String
Public Sub Connect() If Len(Dir$("c:\Sample.dsn")) &lt; 1 Then Call Create End If connString = "DSN=Sample;" Set db = New ADODB.Connection db.Open connString Set dbr1 = New ADODB.Recordset dbr1.Open "Your Table", db, adOpenKeyset, adLockOptimistic End Sub
Private Function CreateAccessDSN(DSNName As String, DatabaseFullPath As String) As Boolean Dim sAttributes As String sAttributes = "DSN=" &amp; DSNName &amp; Chr(0) sAttributes = sAttributes &amp; "DBQ=" &amp; DatabaseFullPath &amp; Chr(0) CreateAccessDSN = CreateDSN("Microsoft Access Driver (*.mdb)", sAttributes) End Function
Private Function CreateDSN(Driver As String, Attributes As String) As Boolean CreateDSN = SQLConfigDataSource(0&amp;, 1, Driver, Attributes) End Function
Private Sub Create() Dim blnRetVal As Boolean blnRetVal = CreateAccessDSN("SampleName", "C:\YourDatabase.mdb") End Sub

Örnek bir proje için tıklayın

Visual Studio 2010 için Crystal Reports yayınlandı.

27 May

Serkan tarafından Crystal Report kategorisinde yayınlanmıştır

1 yorum

SAP Community Networkunden haber geçen günlerde geldi,
Crystal Reports for Visual Studio 2010 yeni versiyon yayınlandı. İlk önceleri 2010 içinde dahil olacağı konuşulan Crtstal Report , Visual Studio’dan bağımsız olarak indirilip kullanılabilecek

Neler yeni diye merak ediyorsanız buradaki makaleyi okuyabilirsiniz ayrıca İndirmek için SAPCN üyesi olmak gerekiyor, üyelik ücretsiz, üyelik ekranındaki en altta bulunan Public User seçeneği ile devam edebilirsiniz….

Şimdiden herkese kolay gelsin…

Crystal Report, Visual Studio 2010

ORA-24813: cannot send or receive an unsupported LOB

27 Nis

Serkan tarafından Oracle kategorisinde yayınlanmıştır

2 yorum

Error Code – Hata Kodu:

ORA-24813:

Error Decription – Hata Tanımı:

cannot send or receive an unsupported LOB

Error Cause – Hatanın Sebebi:

An attempt was made to send a LOB across the network, but either the server does not support the LOB sent by the client, or the client does not support the LOB sent by the server. This error usually occurs when the client and server are running different versions of Oracle.