^.^v

Membuat Looping array di asp classic

2009-12-09T10:53:00.008+07:00


Dim bookTypes(7) 'creates first array
bookTypes(0)="Classic"
bookTypes(1)="Information Books"
bookTypes(2)="Fantasy"
bookTypes(3)="Mystery"
bookTypes(4)="Poetry" 
bookTypes(5)="Humor"
bookTypes(6)="Biography"
bookTypes(7)="Fiction" 
 
Dim arrCars(4) 'creates second array
arrCars(0)="BMW" 
arrCars(1)="Mercedes" 
arrCars(2)="Audi" 
arrCars(3)="Bentley" 
arrCars(4)="Mini"

Sub createList(some_array) 'takes an array and creates drop-down list
  dim i
  response.write("") 
End Sub 

'Now let's call the sub and print out our lists on the screen
Call createList(bookTypes) 'takes bookTypes array as an argument
Call createList(arrcars) 'takes arrCars array as an argument

Membuat DropDownList dengan Database

2009-09-01T10:01:00.028+07:00

Membuat DropDownList dengan Database

langkah pertama yaitu :

langkah kedua yaitu :
buat Tabel didalam database
misal : Nama tabel 'Provinsi' isi field : ID_AREA, NAMA_AREA

langkah ketiga yaitu :
buat class untuk DropDownList
misal di buat di dalam class 'namaclass' dan isinya :


Public Shared Sub IsiDDList(ByVal ddl As DropDownList, ByVal query As String, ByVal coltext As String, _
        ByVal colvalue As String)
            ddl.Items.Clear()
            Dim ds As DataSet = getData(query) ' Buat function getData() untuk dapetin dataset

            ddl.DataSource = ds.Tables(0)
            ddl.DataTextField = coltext
            ddl.DataValueField = colvalue
            ddl.DataBind()

            ds.Dispose()
            GC.Collect()
End Sub

* ket : untuk getData sudah dibahas sebelum nya

langkah keempat yaitu :
Membuat kode di behind code :

Dim kue As String
kue = "SELECT * FROM PROVINSI"
namaclass.IsiDDList(namaDropDown, kue, "NAMA_AREA", "ID_AREA")

Membuat koneksi di ASP.NET dengan memakai dataset

2009-08-14T08:25:00.011+07:00

Langkah2 untuk membuat koneksi yaitu:

1. buat lah koneksi di dalam web.config contoh :

2. dan buatlah class untuk membuat fungsi untuk membuka tabel di database

Contoh :


Namespace DataLayerClasses
Public Class ClsData

Public Shared cn As SqlConnection ''''untuk connect database
Public Shared cn2 As SqlConnection ''''untuk connect database
Public Shared da As SqlDataAdapter ''''untuk mengambil data
Public Shared ds As DataSet ''''untuk menampung data
Public Shared dt As DataTable ''''untuk menampung data
Public Shared cmd As SqlCommand ''''untuk melempar query
Public Shared cmd2 As SqlCommand ''''untuk melempar query
Public Shared trx As SqlTransaction ''''untuk save / undo perintah SQL

''' Ambil koneksi string dari webconfig
Public Shared Function GetKoneksi() As String
Return System.Configuration.ConfigurationManager.ConnectionStrings("conn").ConnectionString
End Function

''' <summary>
''' init obyek (gak kepake)
''' </summary>
''' <remarks></remarks>
Public Sub New()
''''init objects
''cn = New SqlConnection("initial catalog=....")
cn = New SqlConnection()
da = New SqlDataAdapter("", "")
ds = New DataSet()
cmd = New SqlCommand()
cmd2 = New SqlCommand()
''''set connection
GetKoneksi()
End Sub

''' <summary>
''' get data menggunakan data set
''' </summary>
''' <param name="SQLQuery">query</param>
''' <returns></returns>
''' <remarks></remarks>
Public Shared Function getData(ByVal SQLQuery As String) As DataSet

Dim StrDbCon As String = GetKoneksi() ''''untuk connect database
cn = New SqlConnection(StrDbCon) ''''untuk connect database
cmd = New SqlCommand(SQLQuery, cn) ''''untuk mengambil data
da = New SqlDataAdapter(cmd) ''''untuk melempar query
ds = New DataSet ''''untuk menampung data
dt = New DataTable
'Try
da.Fill(ds)
' Catch ex As Exception
'MsgBox(ex.Message)
'End Try
Return ds

End Function


End Class

End Namespace

3. Cara memanggil nya di dalam koding

 
Dim rs As DataSet
Dim dt As New DataTable()

Dim kue As String = "Select * from NAMA_TABLE"
rs = DataLayerClasses.ClsData.getData(kue)

If rs.Tables(0).Rows.Count > 0 Then
Msgbox("Data di temukan")
Else
Msgbox("Data tidak di temukan")
End If