WINDOWS MOBILE CE Connect SQL SERVER 2008

Imports System.Data
Imports System
Imports System.Data.SqlClient
Imports System.Windows.Forms.DateTimePicker
Imports System.Windows.Forms


'####### FOR MOBILE #########
Public Class Form1
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Dim ds As New DataSet()
        dbCon.Open()

        Dim sql As String
        sql = "SELECT * FROM LOGIN"
        Dim command As New SqlCommand(sql, dbCon)
        dbAdapter.SelectCommand = command
        dbAdapter.Fill(ds)
        dbAdapter.Dispose()
        command.Dispose()

        DataGrid2.DataSource = ds.Tables(0)     '' ใส่ค่าใน GridView1  
        dbCon.Close()

        Console.WriteLine("State: {0}", dbCon.State)
        Console.WriteLine("ConnectionString: {0}", _
        dbCon.ConnectionString)
    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim sql As String
        Dim rs As SqlDataReader                 'การอ่านค่าจาก DataBase
        sql = "SELECT * FROM LOGIN"
        rs = ExcuteReader(sql)
        While rs.Read
            MsgBox("Get data" & rs.Item("id"))
        End While
        rs.Close()
    End Sub
End Class

### Module1

Imports System.Data.SqlClient
Imports System.Data.SqlClient.SqlCommand
Imports System.Data.SqlClient.SqlConnection
Imports System.Data.SqlClient.SqlDataAdapter
Imports System.Data.SqlClient.SqlDataReader
Imports System.Data
Imports System

Module Module1
    Public sStrng As String = "Data Source=192.168.101.3\SQLExpress;Initial Catalog=TEST;" _
        & "User ID=sa;" _
        & "Password=seiwa@1234;" _
        & "Persist Security Info=True;"


    Public scmd As SqlCommand
    Public dbCon As New SqlConnection(sStrng)                          'MySqlConnection(sstring)   
    Public dbCmd As New SqlCommand
    Public dbAdapter As New SqlDataAdapter

    Sub OpenDB()
        If dbCon.State = ConnectionState.Closed Then   ' ถ้า Cloas ให้เปิด
            Try
                dbCon.Open()
                'MsgBox("สามารถติดต่อฐานข้อมูล")
            Catch ex As Exception
                MsgBox("ไม่สามารถติดต่อฐานข้อมูล")
            End Try
        End If
    End Sub

    ''' <summary>
    ''' ####### ins_upd_del #######
    ''' </summary>
    ''' <returns></returns>
    ''' <remadsd></remadsd>
    Public Function ExcSQL(ByVal ins_upd_del As String) As Boolean
        Try
            OpenDB()
            scmd = New SqlCommand(ins_upd_del, dbCon)
            scmd.ExecuteNonQuery()
            scmd.Dispose()
            Return True
        Catch ex As Exception
            Return False
        End Try
    End Function

    ''' <summary>
    ''' #######  ExcuteReader   #######
    ''' </summary>
    ''' <returns></returns>
    ''' <remarks></remarks>
    Public Function ExcuteReader(ByVal sTr As String) As SqlDataReader
        If Not dbCon.State = ConnectionState.Open Then
            dbCon.Open()
        End If
        dbCmd = New SqlCommand(sTr, dbCon)
        ExcuteReader = dbCmd.ExecuteReader

    End Function
End Module

connection Sql server

If your system has the Windows Firewall 
configured, it must be configured to allow the remote connection to 
communicate with the SQL Server executable. Follow the steps given below
 to ensure connectivity through the firewall.
1. Start the Control Panel on the computer running SQL Server 2005.
2. Double Click on Windows Firewall.
3. Click on the Exceptions tab.
4. Click on the Add Program button.
5.
 Add the path of sqlsrvr.exe. By default the sqlsrvr.exe is installed at
 <Drive>\Program Files\Microsoft SQL 
Server\MSSQL.1\MSSQL\Binn\sqlservr.exe 

private void SelectEmployee()
        {
            try
            {
                DataTable data = null;
                using (SqlConnection connection = new SqlConnection(connectionstring))
                {
                    if (connection.State != ConnectionState.Open)
                    {
                        connection.Open();
                    }

                    using (SqlCommand cmdSelect = connection.CreateCommand())
                    {
                        cmdSelect.CommandText = "SELECT * FROM Employee;";
                        cmdSelect.CommandType = CommandType.Text;
                        data = new DataTable();
                        using (SqlDataReader reader = cmdSelect.ExecuteReader())
                        {
                            if (reader.Read())
                            {
                                data.Load(reader);
                            }
                        }
                    }
                }
                if (data!=null)
                {
                    this.datagrdviewEmp.DataSource = data;
                }
               
            }
            catch (Exception ex)
            {

                throw ex;
            }
        }

string connectionstring = @"Server=Server IP/Name;Database=Your DB; Uid=user id; pwd=your sql passwrod;";

http://highoncoding.com/Articles/551_How_to_Access_SQL_Server_2005_from_the_Windows_Mobile_Devices.aspx 

http://www.thaicreate.com/dotnet/dotnet-smartdevice-smartphone-pocket-pc-windows-ce.html

crack vb 2008

จากการลงโปรแกรมแบบปกติ จะสามารถใช้งานได้แค่ 90 วัน

ท่านทีมีแผ่นโปรแกรมอยู่แล้ว ก่อนจะติดตั้งให้เข้าไปใน Folder ที่มีชื่อว่า Setup

และมองหาไฟล์ setup.sdb และทำการเปิดไฟล์ด้วยโปรแกรม Text Editor ต่างๆ
ในที่นี้ได้ใช้โปรแกรม Notepad ที่ติดมากับวินโดว์
ให้มองหาบรรทัดที่เขียนว่า [Product Key] แนะนำให้ใช้ Ctrl+F ในการค้นหา
เมื่อเจอให้ทำการเปลี่ยน key จาก key เดิมเป็น

PYHYPWXB3BB2CCMV9DX9VDY8T
จากนั้นทำการเซพและทำการติดตั้งตามปกติ

 ก็จะสามารถใช้โปรแกรมได้แบบไม่มีหมดอายุ

หากท่านใดไม่เข้าใจในขั้นตอนก็สามารถโหลด ไฟล์ setup.sdb 

จากที่นี่ไปทับตัวเดิม ใน Folder Setup ได้ครับ