I-BEGO

Hadduhh...
Maaf oom2 semua kalo pentanyaanku ini sedikit agak kampungan.
Dari pada nanti tersesat di tengah jalan,lebih baik nanya dulu dengan org yg lebih tahu.

Ok oom langsung aja y' kepertanyaannya...

Nih saya punya masalah tentang menampilkan data yg ada pada database SQL Server.

Kalo dulu kan di vb6 Saya masih Mengunakan Koneksi DB dengan ADODB/ODBC biar bisa terkoneksi ke DB SQL Server dan kawan2nya.
Kalo di .NET kan memang sih ada untuk Referensinya ADODB,tapi saya coba2 ingin pindah Koneksinya mengunakan ADO .NET.

Contoh Codingnya kalo di VB6 Koneksi ADODB/ODBC Kurang lebihnya Seperti ini :

Code: Select all


    Dim rs_cari_data As New ADODB.Recordset

    rs_tampil_kpi.Open "SELECT Kode_kpi,Nama_Kpi,Satuan_Kpi,Waktu_penilaian,Target,Tahun,Formula_Kpi,Bobot,Norma1,Norma2,Norma3,Norma4 FROM D_KPI_Jabatan WHERE NIK = '" & NIK.Caption & "' AND Tahun = '" & Tahun.Text & "'", dba, adOpenStatic, adLockOptimistic

    Total_kpi.Caption = "0"

    Do While Not rs_tampil_kpi.EOF
        Set daftar_kpi_tersimpan = Lv_tampil_kpi.ListItems.Add(, , rs_tampil_kpi(0))
            With daftar_kpi_tersimpan
                .SubItems(1) = rs_tampil_kpi(1)
            End With
            rs_tampil_kpi.MoveNext
    Loop

    rs_cari_data.Close


Nah kalo di Vb .NET gimana ya,saya cuma bisa buat koneksinya aja nih oom.
ha..ha...ha...

Code: Select all

    Public dba As New SqlClient.SqlConnection

    Sub OpenDatabase()
        dba.ConnectionString = "Data Source=Skynet92;Initial Catalog=hris;User ID=hrisx;Password=root;"
        dba.Open()
    End Sub


Mohon Bantuannya ya oom2 semua.
Kalau ada contoh Projectnya juga yg sederhana sekali,g' apa2 deh oom.
sangat di terima dengan senang hati.

Mungkin seperti ini om.
data dari DB Sql Server ditampilkan di Datagridview.

Code: Select all

Imports System.Data.SqlClient
Public Class form1
    Dim da As SqlDataAdapter
    Dim dt As DataTable
    Dim conn As SqlConnection

    Private Function Konek_db() As SqlConnection
        conn = New SqlConnection("Data Source=Skynet92;Initial Catalog=hris;User ID=hrisx;Password=root;")
        Try
            conn.Open()
        Catch ex As SqlException
            MsgBox(ex.Message)
        End Try
        Return conn
    End Function

    Private Sub form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        dt = New DataTable
        da = New SqlDataAdapter("select * from tabel", Konek_db)
        da.Fill(dt)
        datagridview1.DataSource = dt
    End Sub

End Class


Hope this help

ikutan,
VB6 :

Do While Not rs_tampil_kpi.EOF
Set daftar_kpi_tersimpan = Lv_tampil_kpi.ListItems.Add(, , rs_tampil_kpi(0))
With daftar_kpi_tersimpan
.SubItems(1) = rs_tampil_kpi(1)
End With
rs_tampil_kpi.MoveNext
Loop

VB.NET :

Do While Not rs_tampil_kpi.EOF
daftar_kpi_tersimpan = Lv_tampil_kpi.items.Add(rs_tampil_kpi(0).value)
With daftar_kpi_tersimpan
.SubItems.add(rs_tampil_kpi(1).value)
End With
rs_tampil_kpi.MoveNext
Loop

http://www.masoft.us

http://www.facebook.com/java.query