Hi,
Am using the following code,
Imports System
Imports System.Windows.Forms.Binding
Imports System.Data
Imports System.Text
Imports System.Data.SqlClient
Imports System.IO
Public Class Form1
'Dim flag As Integer
Dim dr As DataRow
Dim dt As DataTable
Dim custid As String
Dim bm As Binding
Dim DSCust As New DataSet
'Dim conn As New OleDbConnection
'Public Sub New()
Dim conn As New SqlConnection("provider=SQLOLEDB;user id=sa;password=ozone1;database=pubs;server=localhost")
'End Sub
Dim OleDbDACust As New SqlDataAdapter("select * from customertraking", conn)
'Public WithEvents datatable As New DSCust
'gstrConnstring = "Provider=SQLOLEDB;Data Source=pubs;user id=sa;password=ozone1;";
'Dim conn As New OleDbConnection(gstrConnstring)
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Try
OleDbDACust.Fill(DSCust)
Catch ex As Exception
MsgBox("database connection is not proper", MsgBoxStyle.Critical, "Error")
End Try
'bm = Me.BindingContext(DSCust, "customertraking")
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
' If flag = 1 Then
dt = DSCust.Tables(0)
dr = dt.NewRow()
dr(0) = TextBox1.Text
dr(1) = TextBox2.Text
dr(2) = TextBox3.Text
dr(3) = TextBox4.Text
dr(4) = TextBox5.Text
dr(5) = TextBox6.Text
dt.Rows.Add(dr)
' txtcustid.Enabled = True
OleDbDACust.Update(DSCust, "customertraking")
OleDbDACust.Fill(DSCust)
End Sub
End Class
-
in runtime am getting the following error :
An error occurred creating the form. See Exception.InnerException for details. The error is: Keyword not supported: 'provider'.
please help me to insert a value into sqlbb.
Thanks in advance
|
| Author: Mithun 24 Sep 2008 | Member Level: Silver | Rating:  Points: 1 |
It might be case sensitive. Provider not provider.
|
| Author: Sathish Kumar 24 Sep 2008 | Member Level: Gold | Rating: Points: 6 |
Imports System
Imports System.Windows.Forms.Binding
Imports System.Data
Imports System.Text
Imports System.Data.SqlClient
Imports System.IO
Public Class Form1
'Dim flag As Integer
Dim dr As DataRow
Dim dt As DataTable
Dim custid As String
Dim bm As Binding
Dim DSCust As New DataSet
'Dim conn As New OleDbConnection
'Public Sub New()
Dim conn As New SqlConnection("user id=sa;password=ozone1;data source=pubs;server=localhost")
'End Sub
Dim OleDbDACust As New SqlDataAdapter("select * from customertraking", conn)
'Public WithEvents datatable As New DSCust
'gstrConnstring = "Provider=SQLOLEDB;Data Source=pubs;user id=sa;password=ozone1;";
'Dim conn As New OleDbConnection(gstrConnstring)
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Try
OleDbDACust.Fill(DSCust)
Catch ex As Exception
MsgBox("database connection is not proper", MsgBoxStyle.Critical, "Error")
End Try
'bm = Me.BindingContext(DSCust, "customertraking")
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
' If flag = 1 Then
dt = DSCust.Tables(0)
dr = dt.NewRow()
dr(0) = TextBox1.Text
dr(1) = TextBox2.Text
dr(2) = TextBox3.Text
dr(3) = TextBox4.Text
dr(4) = TextBox5.Text
dr(5) = TextBox6.Text
dt.Rows.Add(dr)
' txtcustid.Enabled = True
OleDbDACust.Update(DSCust, "customertraking")
OleDbDACust.Fill(DSCust)
End Sub
End Class
|
| Author: Anil Kumar Pandey 24 Sep 2008 | Member Level: Diamond | Rating: Points: 5 |
hi,
are u using a windows application or a web application for a web application write the string in the web.config file as
<configuration>
<connectionStrings>
<add name="ConStr" connectionString="Data Source=servername;Initial Catalog=dbtable;uid=aa;pwd=aa;Pooling=true;Min Pool Size=0;Max Pool Size=1000;"/>
</connectionStrings>
<system.web>
and read like this
StrConStr = Settings1.Default.SqlConnectionString.ToString();
Regards
Anil Pandey
Thanks & Regards
Anil Kumar Pandey
|