错误:在我的编码程序中 [英] error: in my coding programme

问题描述

海能请教我如何解决我的问题
以下是我的编码.我得到了错误 System.Data.SqlClient.SqlConnection类型的值无法转换为String .
我只是强调了连接一词，导致我的程序出现错误.
我正在使用Microsoft Visual Studio 2005并连接到sql server2005.
为了您的信息，我也正在使用界面文本框将数据插入sql数据库2005中

Hai could you advice to me how to solve my probleam
below is my coding.i got an error Value of type System.Data.SqlClient.SqlConnection cannot converted to String .
I just underlined the word connection caused my program got an error.
I am using Microsoft visual studio 2005 and connect to sql server 2005.
for your info also i am using interface textbox to insert data to sql database 2005

Imports System.Data.SqlClient

Public Class Admin
    Dim insertdata As String
    Dim myOleDbConnection As OleDb.OleDbConnection

    Private Sub TextBox6_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txtadd.TextChanged

    End Sub

    Private Sub btnins_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnins.Click

        Dim connection As New SqlConnection
        connection.ConnectionString = " Data Source=Danawa;Initial Catalog=login ;Integrated Security=True"

        insertdata = "INSERT INTO staff (firstname,telephone,department,ic, username,password, address)VALUES (trim(txtfir.text), trim(txttel.text),trim(txtdep.text),trim(txtic.text),trim(txtuse.text),trim(txtpas.text),trim(txtadd.text))"


        myOleDbConnection = New OleDb.OleDbConnection(connection)

        Dim myOleDbCommand As New OleDb.OleDbCommand(insertdata, myOleDbConnection)
        myOleDbConnection.Open()

        Dim temp_num As Integer

        Try

            temp_num = myOleDbCommand.ExecuteNonQuery

        Catch ex As Exception
            Trace.WriteLine(ex.ToString)
        End Try

        myOleDbConnection.Close()
    End Sub
End Class

推荐答案

您的问题在这里:

Your problem is here:

myOleDbConnection = New OleDb.OleDbConnection(connection)

您正在尝试用SqlConnection调用OleDbConbnection构造函数.它应该是您的连接字符串.我会这样:

You''re tryint to call the OleDbConbnection constructor with a SqlConnection. It should be a your connection string instead. And I''d do it this way:

Public Class Admin
    Dim insertdata As String
    Dim connstring As String = "Data Source=Danawa;Initial Catalog=login ;Integrated Security=True"
    Dim myOleDbConnection As OleDb.OleDbConnection
 
    Private Sub TextBox6_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txtadd.TextChanged
    End Sub
 
    Private Sub btnins_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnins.Click
        insertdata = "INSERT INTO staff (firstname,telephone,department,ic, username,password, address)VALUES (trim(txtfir.text), trim(txttel.text),trim(txtdep.text),trim(txtic.text),trim(txtuse.text),trim(txtpas.text),trim(txtadd.text))"

        Dim myOleDbCommand As OleDb.OleDbCommand = Nothing

        Dim temp_num As Integer

        Try
            myOleDbConnection = New OleDb.OleDbConnection(connstring)
            myOleDbCommand = New OleDb.OleDbCommand(insertdata, myOleDbConnection)
            myOleDbConnection.Open()
            temp_num = myOleDbCommand.ExecuteNonQuery
        Catch ex As Exception
            Trace.WriteLine(ex.ToString)
        Finally
            if myOleDBConnection IsNot Nothing Then
                myOleDBConnection.Close()
            End If
        End Try
    End Sub

这篇关于错误:在我的编码程序中的文章就介绍到这了，希望我们推荐的答案对大家有所帮助，也希望大家多多支持IT屋！