Reply to thread

Message

<blockquote data-quote="Ranhiru" data-source="post: 5801645" data-attributes="member: 17748">Visual Basic .NET 2008 thama machan use karanne'first creating a Sql Connection ... put this in a&nbsp; module so it will be global&nbsp;'Put any valid Sql Connection String.. Get&nbsp; Connection Strings from <a href="http://www.connectionstrings.com/" target="_blank">http://www.connectionstrings.com</a>Me thiyenne SQL Server walata...i think what you need for a connection string is <a href="http://connectionstrings.com/access-2007" target="_blank">http://connectionstrings.com/access-2007</a>&nbsp; &nbsp; &nbsp;[CODE]Public connection As New SqlConnection(&quot;Persist&nbsp; Security Info=False;Data&nbsp; Source=&quot;|DataDirectory|Database1.sdf&quot;)[/CODE] Getting A set of data from a Sql&nbsp; Database&nbsp; [CODE]Dim dt As New DataTable()Dim ds As New&nbsp; DataSet&nbsp; &nbsp;Dim queryString As String = &quot;SELECT * FROM&nbsp; Country ORDER BY CCode&quot;Dim adapter As SqlCeDataAdapter = New&nbsp; SqlCeDataAdapter(queryString, connection)adapter.FillLoadOption =&nbsp; LoadOption.OverwriteChanges&nbsp;adapter.Fill(ds, &quot;Country&quot;)&nbsp; &nbsp;dt = ds.Tables(&quot;Country&quot;)[/CODE] 'Now DataTable dt contains all the rows from the&nbsp; table Country&nbsp; &nbsp; &nbsp; &nbsp;Getting a Single Data from the&nbsp; Database&nbsp; &nbsp;'This is a sample function written to get a&nbsp; Username when the User gives a UserID&nbsp;'connection should be defined first in the module&nbsp; or somewhere <img src="/styles/default/xenforo/smilies/default/D.gif"&nbsp; class="smilie" loading="lazy" alt=":D" title="Big grin&nbsp; &nbsp; :D" data-shortname=":D" />&nbsp; &nbsp; &nbsp;[CODE]&nbsp;&nbsp; Function&nbsp; getUsername(ByVal UserID as Integer) As String&nbsp;&nbsp; &nbsp; &nbsp; &nbsp;&nbsp; Dim Username As String&nbsp; &nbsp;&nbsp; &nbsp; &nbsp; &nbsp; Try&nbsp;&nbsp; &nbsp; &nbsp; &nbsp; connection.Open()&nbsp; &nbsp; &nbsp; &nbsp; &nbsp;&nbsp; Dim Command As New&nbsp; SqlCeCommand(&quot;SELECT Username FROM UserTable WHERE UserID=&quot; &amp; UserID,&nbsp; connection)&nbsp; &nbsp; &nbsp; &nbsp; &nbsp;&nbsp; Username=&nbsp; Command.ExecuteScalar().ToString&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; connection.Close()&nbsp; &nbsp; &nbsp; &nbsp; &nbsp;&nbsp; Return&nbsp; Username&nbsp; &nbsp; &nbsp; &nbsp; &nbsp;&nbsp; Catch ex As&nbsp; Exception&nbsp; &nbsp; &nbsp; &nbsp; &nbsp;&nbsp; End Try&nbsp;&nbsp;&nbsp; &nbsp;&nbsp; End Function&nbsp; [/CODE] Adding Data to the&nbsp; Database&nbsp; &nbsp;'This enters data in to a User Table&nbsp; &nbsp;[CODE] &nbsp;Try&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; Dim stringAdd As String = &quot;INSERT INTO UserTable (&quot; &amp; txtUserID.Text &amp;&nbsp; &quot;,' &quot; &amp; txtUsername.Text &amp; &quot; ')&quot;&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; MsgBox(stringAdd)&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; 'MsgBox will display something like&nbsp; &quot;INSERT INTO UserTable (0001,'Pradeep ElaKiri') &quot;&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; Dim obj As New SqlCommand(stringAdd, connection)&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; obj.Connection.Open()&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp;&nbsp; obj.ExecuteNonQuery()&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp;&nbsp; obj.Connection.Close()&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; obj.Dispose()&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; Catch ex As Exception&nbsp;&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp;&nbsp; MsgBox(ex.Message)&nbsp;End Try[/CODE] Updating Data&nbsp; &nbsp;[CODE]&nbsp; &nbsp; Dim&nbsp; stringUPDATE As String = &quot;UPDATE UserTable SET Username=' &quot; &amp;&nbsp; txtNewUsername.Text &amp; &quot; '&nbsp; WHERE UserID=&quot;&nbsp; &amp; txtUserID.Text &nbsp; &nbsp; &nbsp; &nbsp;&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; MsgBox(stringUPDATE)&nbsp; &nbsp; &nbsp; &nbsp;&nbsp; 'MsgBox&nbsp; should display something like &quot;UPDATE UserTable SET Username='Naps' WHERE&nbsp; UserID=1&quot;&nbsp; &nbsp; &nbsp; &nbsp; &nbsp;&nbsp; Dim obj&nbsp; As New SqlCommand(stringUPDATE, connection)&nbsp;&nbsp; &nbsp; &nbsp; &nbsp;&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; Try&nbsp; &nbsp;&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp;&nbsp; obj.Connection.Open()&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp;&nbsp; obj.ExecuteNonQuery()&nbsp; &nbsp;&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp;&nbsp; &nbsp; &nbsp; &nbsp; &nbsp;&nbsp; Catch ex As Exception&nbsp;&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp;&nbsp; MsgBox(ex.Message)&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp;&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp;&nbsp; Finally&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; obj.Connection.Close()&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; obj.Dispose()&nbsp; &nbsp; &nbsp; &nbsp; &nbsp;&nbsp; End Try[/CODE]</blockquote>

[QUOTE="Ranhiru, post: 5801645, member: 17748"] Visual Basic .NET 2008 thama machan use karanne [FONT=Arial][SIZE=2]'first creating a Sql Connection ... put this in a module so it will be global[/SIZE][/FONT] [FONT=Arial][SIZE=2]'Put any valid Sql Connection String.. Get Connection Strings from [URL="http://www.connectionstrings.com/"]http://www.connectionstrings.com[/URL][/SIZE][/FONT] Me thiyenne SQL Server walata...i think what you need for a connection string is [url]http://connectionstrings.com/access-2007[/url] [CODE]Public connection As New SqlConnection("Persist Security Info=False;Data Source="|DataDirectory|Database1.sdf")[/CODE] [FONT=Arial][SIZE=2][U][B]Getting A set of data from a Sql Database[/B][/U][/SIZE][/FONT] [CODE]Dim dt As New DataTable() Dim ds As New DataSet Dim queryString As String = "SELECT * FROM Country ORDER BY CCode" Dim adapter As SqlCeDataAdapter = New SqlCeDataAdapter(queryString, connection) adapter.FillLoadOption = LoadOption.OverwriteChanges adapter.Fill(ds, "Country") dt = ds.Tables("Country") [/CODE] [FONT=Arial][SIZE=2]'Now DataTable dt contains all the rows from the table Country[/SIZE][/FONT] [FONT=Arial][SIZE=2][B][U]Getting a Single Data from the Database[/U][/B][/SIZE][/FONT] [FONT=Arial][SIZE=2]'This is a sample function written to get a Username when the User gives a UserID[/SIZE][/FONT] [FONT=Arial][SIZE=2]'connection should be defined first in the module or somewhere :D[/SIZE][/FONT] [CODE] Function getUsername(ByVal UserID as Integer) As String Dim Username As String Try connection.Open() Dim Command As New SqlCeCommand("SELECT Username FROM UserTable WHERE UserID=" & UserID, connection) Username= Command.ExecuteScalar().ToString connection.Close() Return Username Catch ex As Exception End Try End Function [/CODE] [FONT=Arial][SIZE=2][B][U]Adding Data to the Database[/U][/B][/SIZE][/FONT] [FONT=Arial][SIZE=2]'This enters data in to a User Table[/SIZE][/FONT] [CODE] Try Dim stringAdd As String = "INSERT INTO UserTable (" & txtUserID.Text & ",' " & txtUsername.Text & " ')" MsgBox(stringAdd) 'MsgBox will display something like "INSERT INTO UserTable (0001,'Pradeep ElaKiri') " Dim obj As New SqlCommand(stringAdd, connection) obj.Connection.Open() obj.ExecuteNonQuery() obj.Connection.Close() obj.Dispose() Catch ex As Exception MsgBox(ex.Message) End Try [/CODE] [FONT=Arial][SIZE=2][B][U]Updating Data[/U][/B][/SIZE][/FONT] [CODE] Dim stringUPDATE As String = "UPDATE UserTable SET Username=' " & txtNewUsername.Text & " ' WHERE UserID=" & txtUserID.Text MsgBox(stringUPDATE) 'MsgBox should display something like "UPDATE UserTable SET Username='Naps' WHERE UserID=1" Dim obj As New SqlCommand(stringUPDATE, connection) Try obj.Connection.Open() obj.ExecuteNonQuery() Catch ex As Exception MsgBox(ex.Message) Finally obj.Connection.Close() obj.Dispose() End Try [/CODE] [/QUOTE]

Verification

Winadiyakata thappara keeyak tibeda?

Search

Latest ads

Reply to thread