ToHaNS
Altın Üye
- Katılım
- 29 Haziran 2015
- Mesajlar
- 29
- Excel Vers. ve Dili
- Office 365 TR
- Altın Üyelik Bitiş Tarihi
- 21-04-2026
Herkese Merhabalar,
Bir şeyler öğrenmek için bazı eğitim videolarını takip ederek kafamda oluşturduğum bir VBA projesini yapmak üzere uğraşıyorum.
Takip ettiğim YouTube eğitiminde anlatan hocam Bilgisayar üzerinden MS SQL Server Management Studio Programı ile kendi bilgisayarında bir Database oluşturup içerisine tablosunu oluşturarak bağlantı yapmak üzere anlatıyor. Ben de isimtescil üzerinde bir MS SQL veritabanı oluşturdum buna internet üzerinden giriş yapabiliyorum fakat. Bu bahsettiğim program üzerinden giriş yapamıyorum başaramadım, kaynak da bulamadım.
Benim amacım bu oluşturduğum kendi veritabanıma veri ekleme okuma ve düzeltme yapmak ve bunu eğer başarabilirsem çoklu kullanım sağlayabilirim diye kafamda hayal ettim bilmiyorum doğru mu düşündüm. Bana fikir verecek, yol gösterecek, yardımcı olacak hocalarımın desteklerini rica ediyorum. Konuyu tam bilmediğim için hangi konuları araştıracağımı da bilemedim.
Bir şeyler öğrenmek için bazı eğitim videolarını takip ederek kafamda oluşturduğum bir VBA projesini yapmak üzere uğraşıyorum.
Takip ettiğim YouTube eğitiminde anlatan hocam Bilgisayar üzerinden MS SQL Server Management Studio Programı ile kendi bilgisayarında bir Database oluşturup içerisine tablosunu oluşturarak bağlantı yapmak üzere anlatıyor. Ben de isimtescil üzerinde bir MS SQL veritabanı oluşturdum buna internet üzerinden giriş yapabiliyorum fakat. Bu bahsettiğim program üzerinden giriş yapamıyorum başaramadım, kaynak da bulamadım.
Benim amacım bu oluşturduğum kendi veritabanıma veri ekleme okuma ve düzeltme yapmak ve bunu eğer başarabilirsem çoklu kullanım sağlayabilirim diye kafamda hayal ettim bilmiyorum doğru mu düşündüm. Bana fikir verecek, yol gösterecek, yardımcı olacak hocalarımın desteklerini rica ediyorum. Konuyu tam bilmediğim için hangi konuları araştıracağımı da bilemedim.
Kod:
Option Explicit
Public cn As ADODB.Connection
Public rs As ADODB.Recordset
Public yol As String
Public field As ADODB.field
Private Sub CommandButton1_Click()
Set cn = New ADODB.Connection
Set rs = New ADODB.Recordset
yol = "Driver={SQL server};Server=Buraya Ne yazacağımı bilmiyorum;Database=Dataadı;UID=ID adım;PWD=password"
cn.Open yol
cn.excute "insert into tabloadı values('" & txtAd.Value & "')"
...
End Sub