Cara Buat Database dan Table pada SQL Selver
- langkah pertama1. buat folder baru untk menyimpen data2 ( databases, form, project, icon, image, laporan)
2. aktivkan dan cari progam sql nya....
3. klik enter prise managernya
4. seting sql service managernya
langkahnya :
- klik star
- klik refresh services (di minimize)
5. cari data bast di (tulisan local- window NT)
- klik kanan di tulisn databases
- akan tampil form databases proerties ( general)
- buat nama databases
- lalu klik data files --dibruse (cari letak databases di simpan) di ok.
- klik transaction log ---di bruse (cari databasesnya) lalu klik tulisan databases
6.cari table di databases, setelah tampil tulisan table lalu di klik. lalu klik 2 X dbs yg tlh kita buat,
lalu akan tampil, lalu klik kanan di table, pilih new table, masukan fielnya.
(simpan). lalu masuk ke program vBnya...!!
desain form :
- activekn komponen yang belum ada :
- ctrl T, pilih komponen yg di perlukan, lalu oke...
- pilih toolbar ---pilih project,lalu klik di projek pilih project1 properties
- buat nama form di 'project name'...ok
- klik kanan form mahasiswa, pilih save form mahasiswa as
- cari letak folder yg kita buat.
- pilih form (save)
- pilih file klik save as project
- atur properties :
- clip ctrl --false
- control box --false
- starupposition --centre screen
- window sate maximized
- pilih project
- pilih add module, ganti nama (tulis, module conection)
- klik kanan di tulisan module conection, lalu di save.
- tuliskn scrip :
(Public dbmahasiswa As ADODB.Connection) ----> u/ variable coneksi database
(public rsmahasiswa as ADODB.Recordset) -----> u/ variable coneksi ke recordset table
(Public StrMahasiswa As String) u/ string coneksi mmbaca dbs
- aktivkan komponent adodc dan diklik kanan di data tsb ( u/ tempt menulis scrip vb), pilih adodcpropertise
pilih use conection string, klik build, lalu ok, ( copy tulisan yg di dlm use conection string)lalu paste di module conection.
contoh:
-->> scrip module kenksi dbs
Public Sub KoneksiDatabase()
Set dbmahasiswa = New ADODB.Connection
StrMahasiswa = "provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=dbslatihan;Data Source=(local)"
dbmahasiswa.Open StrMahasiswa
dbmahasiswa.CursorLocation = adUseClient
End Sub
-->> scrip u/ coneksi ke table mahasiswa
Public Sub KoneksiMahasiswa()
Set RsMahasiswa = New ADODB.Recordset
StrMahasiswa = "Select * From Tablemahasiswa order by npm asc"
RsMahasiswa.Open StrMahasiswa, DbMahasiswa, adOpenStatic, adLockOptimistic
End Sub
scrip cara membuat prosedur
-->> Private Sub isijurusan()
Jurusan.AddItem "MI"
Jurusan.AddItem "KA"
Jurusan.AddItem "BI"
End Sub
fungsi form laod -->> ketika form pertama kali di jalankan
-->> Private Sub Form_Load()
KoneksiDatabase
KoneksiMahasiswa
Set DataGrid1.DataSource = RsMahasiswa
isijurusan
End Sub
0 komentar:
Posting Komentar
Silakan Isi Saran Dan Kritik Anda...