Masuk Data Kat Form Automatic Masuk Dlam Database

[Zamri Tumidi 0]

nuyil,ada coding tak tntag nak kuar kn data dari dalam database...

[kazuharan85 0]

zam,sblm ni aku ada letak utk view pakai datalist..tengokla sblm2 ni..tp code dia pjg sket sbb kt html pn kna buat.so kena tgk satu2 dengan penuh kesabaran..

[Uwais Al-Qarani 0]

Protected Sub SimpanAduan()

Dim OLEConn As New System.Data.Odbc.OdbcConnection

Dim OLESql As New System.Data.Odbc.OdbcCommand

Dim data As System.Data.Odbc.OdbcDataReader

OLEConn.Open()

Dim i As Integer

row = 0

OLEConn.ConnectionString = "server=jbendmain;uid=jbend;pwd=bendahari;database=jbend

_db"

Try

OLEConn.Open()

OLESql.Connection = OLEConn

OLESql.CommandText = Sql

If optionReturnData Then

data = OLESql.ExecuteReader()

myArray(row, i) = ""

Else

OLESql.ExecuteReader()

End If

OLESql.Cancel()

OLEConn.Close()

Return

Catch ex As Exception

Response.Write("Proses tidak berjaya. Sila hubungi Pengurus Sistem dengan menyalin Ralat berikut : <BR>" + ex.ToString + Sql)

Return

End Try

Sql = "INSERT Into ad_AduanHdr VALUES('" + txtIdAduan.Text + "','" + ddlKategori.SelectedValue + "','" + txtNoKadPengenalan.Text + "','" + txtNama.Text + "','" + _

txtEmail.Text + "','" + txtNoTelefon.Text + "','" + txtNoHp.Text + "','" + txtAdd1.Text + "','" + txtAdd2.Text + "','" + _

txtPoskod.Text + "','" + txtBandar.Text + "','" + ddlNegeri.SelectedValue + "','" + ddlNegara.SelectedValue + "','" + txtTajuk.Text + "','" + _

txtAduanArea.Text + "','" + rbJenis.SelectedValue + "',getdate()')"

End Sub

apa salah ku =s

[kazuharan85 0]

Sql = "INSERT Into ad_AduanHdr VALUES('" + txtIdAduan.Text + "','" + ddlKategori.SelectedValue + "','" + txtNoKadPengenalan.Text + "','" + txtNama.Text + "','" + _

txtEmail.Text + "','" + txtNoTelefon.Text + "','" + txtNoHp.Text + "','" + txtAdd1.Text + "','" + txtAdd2.Text + "','" + _

txtPoskod.Text + "','" + txtBandar.Text + "','" + ddlNegeri.SelectedValue + "','" + ddlNegara.SelectedValue + "','" + txtTajuk.Text + "','" + _

txtAduanArea.Text + "','" + rbJenis.SelectedValue + "',getdate()')"

cuba letak sblm

OLESql.CommandText = Sql

[Uwais Al-Qarani 0]

nuyiel,minta ym or email ko plz

ini coding yg baru,masalah sekarang nie dekat sini

Public sDB As String = ConfigurationManager.ConnectionStrings("AduanPelajar").ConnectionString

ini dalam web config aku

<connectionStrings>
		<add name="AduanPelajar" connectionString="DSN=jbendmain ; Uid =jbend ; Pwd = bendahari ; trusted_connection = yes" providerName="System.Data.Odbc"/>
	</connectionStrings>

aku guna sybase,x reti nak wat connection string

[Zamri Tumidi 0]

ok nuyil...tengkiu..nanti aku chek.....