Sekarang aku nak ajar bagai mana nak buat function save pula. ia meringankan tugas programming.
__________________________________________________________________________________
CODE :
\'===========function to run query insert/update/delete================
Public Function runQuery(ByVal qry As String) As Integer
Dim rowsAffected As Integer \'as success flag
Try
\'declare new sql command, open connection if closed
Dim cmd As New SqlCommand(qry, conn)
If conn.State = ConnectionState.Closed Then
conn.Open()
\'execute query
Dim saveQueryRs As SqlDataReader = cmd.ExecuteReader
rowsAffected = saveQueryRs.RecordsAffected
End If
Catch ex As Exception
ex.Message.ToString()
Finally
conn.Close()
End Try
\'____________return number of rows affected / success flag___________
Return rowsAffected
End Function
\'=========================Function Save====================================
Public Function SaveMaklumatMaster()
\'--declare and init query string--
Dim saveMaster As String
saveMaster = \"insert into REFGENERAL (REFERENCEID,DESCRIPTION1,REFERENCECODE,REFERENCESTATUSCODE,MASTERCODE,GROUPCODE) \" & _
\"Select max(REFERENCEID)+1 ,\'\" & TXT_Nama.Text & \"\',(SELECT max(REFERENCECODE)\" & _
\" FROM REFGENERAL\" & _
\" where mastercode=\'XXX\' )+1,\'\" & DD_Status.SelectedValue & \"\',\'XXX\',\'XXX\' from REFGENERAL\"
Return runQuery(saveMaster) \'return number of rows affected / success flag
End Function
________________________________________________________________________________
Text = qury save yang anda gunakan.
semoga berjaya :kiss:
