SEMICO FRAMEWORK

 website : Semico.terapad.com

Tutorial lebih lengkap : http://semicoframework.blogspot.com/p/home.html

Starting code with SEMICO Framework :

Open Visual Studio, Create a new project, select Windows Application
Look at the display Solution Explorer, right-click on the Project name select add reference

3-18-2011 7-22-25 PM

Select the Browse tab, locate the component and select semico_dialog.dll and MySql.data.dll 

3-18-2011 7-23-38 PM

 


Screeenshot Reuseble Dialog :

 

Dialog Data Finder :

Dialog Search data

 

 

 

 

 

 

 

 

 

 

Dialog Login :

 

 

 

 

 

 

 



use :
Imports SEMICO_Dialog
Database manipulation:

 


1. Getting data from database :
Dim conn As New ClsSQL("MyUsername", "MyPassword", "MyHost", "MyDatabase")
conn.Execute("select * from MyTable where ID=1")

If conn.HasRows = True Then
'Getting data from database
Dim myCollumn As String = conn("myCollumn")
End If


2. Getting data with many rows from database
Dim conn As New ClsSQL("MyUsername", "MyPassword", "MyHost", "MyDatabase") 
conn.Execute("select * from MyTable")
If conn.HasRows = True Then
For i = 0 To conn.RowCount - 1
Dim myCollumn As String = conn("myCollumn") 
conn.NextRow()
Next

End If


3. Insert / update / Delete data
Dim conn As New ClsSQL("MyUsername", "MyPassword", "MyHost", "MyDatabase") 
conn.Execute("Insert Into MyTable (col1,col2) values ('test1',getdate())")


4. Transaction
Dim conn As New ClsSQL("MyUsername", "MyPassword", "MyHost", "MyDatabase") 
Try
conn.BeginsTrans()
conn.Execute("Insert Into MyTable (Col1,Col2) values ('Test1',getdate())")
conn.Execute("Insert Into MyTable (Col1,Col2) values ('Test2',getdate())")
conn.Execute("Insert Into MyTable (Col1,Col2) values ('Test3',getdate())")
conn.Execute("Insert Into MyTable (Col1,Col2) values ('Test4',getdate())")
conn.CommitTrans()
Catch ex As Exception
conn.RollBackTrans()
End Try


5. Auto Number
Dim conn As New ClsSQL("MyUsername", "MyPassword", "MyHost", "MyDatabase") 
Dim IDNOW As String = conn.AutoNumber("ID", "MyTable")

Last edited Oct 30, 2013 at 4:47 AM by luisginan, version 5

Comments

No comments yet.