Connection string to connect to Sql Server database (Visual Basic .Net 2008)
'Declare in a Module area
Public mCon As String = "Data Source=SERVER\SQLEXPRESS;Initial Catalog=Payroll;Integrated Security=True;User ID=user"
'---Sample Code to check record exist ----
Function Check_Record_Exist(ByVal pSQLstr As String) As Boolean
Dim conSQL As New SqlClient.SqlConnection ' for database connection
Dim AdaptSql As SqlClient.SqlDataAdapter ' adapter is use to update the dataset and datasource
Dim Dats As New DataSet
Check_Record_Exist = False
conSQL.ConnectionString = mCon
conSQL.Open()
AdaptSql = New SqlClient.SqlDataAdapter(pSQLstr, conSQL)
AdaptSql.Fill(Dats, "Inquiry")
'If Dats.Tables.Count() > 1 Then
If Dats.Tables.Count > 1 Then
Check_Record_Exist = True
MsgBox("Record already exist, please check your entry.", MsgBoxStyle.Information, "Found Record!")
End If
End Function
Connection string to connect to Sql Server database (Visual Basic 6)
Public Contst Constr= "Provider=MSDASQL.1;Persist Security Info=False;Data Source=Test1;Mode=ReadWrite"
'--- Sample Code ----
Function Get_Item_Desc(pCode As String) As String
On Error GoTo errHandler
Dim rst As New ADODB.Recordset
Dim mSQL As String
Get_Item_Desc = ""
With rst
mSQL = "Select * from ItemMast Where Itemcode = '" & pCode & "' "
.Open mSQL, mCon, adOpenDynamic, adLockReadOnly
If .BOF And .EOF Then
Else
Get_Item_Desc = Trim(Format(!Description))
End If
.Close
End With
Exit Function
errHandler:
MsgBox Err.Number & Err.Description
End Function
Update Contact :
No Wa/Telepon (puat) : 085267792168
No Wa/Telepon (fajar) : 085369237896
Email : Fajarudinsidik@gmail.com
No Wa/Telepon (puat) : 085267792168
No Wa/Telepon (fajar) : 085369237896
Email: Fajarudinsidik@gmail.com
atau Kirimkan Private messanger melalui email dengan klik tombol order dibawah ini :
