这里真的没人能帮我吗,这个问题我已经折腾一个星期了也没解决!

Shared Function Insert(ByVal ConnectionString As String, ByVal SQLString As String) As Integer
        

        Dim connection As New SqlConnection(ConnectionString)
        Dim command As New SqlCommand()
        Dim transaction As SqlTransaction



        Dim Count As Integer = 0
        command.Connection = connection
        connection.Open()
        transaction = connection.BeginTransaction()
        command.Transaction = transaction
         = SQLString

        Try
            Count = command.ExecuteNonQuery()
            ()
        Catch ex As Exception
            MsgBox(ex.ToString())
        Finally
            connection.Close()
        End Try
        Return Count
    End Function

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim SQLString As String = "INSERT INTO test(aa,bb,cc) VALUES  ('a2','b2','c2')"
        Dim conn As String = "User ID=test;PassWord=1234;Data Source=127.0.0.1  ;DataBase=Test"
        Call Insert(conn, SQLString)
    End Sub
自己去看，你少了什么！！！！

[[italic] 本帖最后由 fairy4 于 2007-12-13 14:45 编辑 [/italic]]

我是運行成功，你看圖片！

看來你的連接字符串有問題！！！！


Call Insert(conn, SQLString)这句有没有结果都一样.

？？不調用這個，你怎么插數據？

这样吧,你新建一个工程,添加一个类,把下面的粘过去.
Imports System.Data.SqlClient
Public Class EditDataBase
    Shared Function Insert(ByVal ConnectionString As String, ByVal SQLString As String) As Integer
        Dim Connection As SqlConnection = New SqlConnection(ConnectionString)
        Dim Command As SqlCommand = New SqlCommand(SQLString, Connection)
        Dim Transaction As SqlTransaction
        Dim Count As Integer = 0
        Command.Connection = Connection
        Connection.Open()
        Transaction = Connection.BeginTransaction()
        Command.Transaction = Transaction
        Try
            Count = Command.ExecuteNonQuery()
            ()
        Catch ex As SqlException
            MsgBox(ex.ToString())
        Catch ex As Exception
            MsgBox(ex.ToString())
        Finally
            Connection.Close()
        End Try
        Return Count
    End Function
    Shared Function Delete(ByVal ConnectionString As String, ByVal table As String, ByVal row As String, ByVal value As String) As Integer
        Dim Connection As SqlConnection = New SqlConnection(ConnectionString)
        Dim SQLString As String = "Delete Form" + table + "Where" + row + "=" + "" + value + ""
        Dim Command As SqlCommand = New SqlCommand(SQLString, Connection)
        Dim Count As Integer = 0
        Try
            Connection.Open()
            Count = Command.ExecuteNonQuery()
        Catch ex As SqlException
            MsgBox(ex.ToString())
        Finally
            Connection.Close()
        End Try
        Return Count
    End Function
    Shared Function Update(ByVal ConnectionString As String, ByVal table As String, ByVal StrContent As String, ByVal row As String, ByVal value As String) As Integer
        Dim Connection As SqlConnection = New SqlConnection(ConnectionString)
        Dim SQLString As String = "Update" + table + "Set" + StrContent + "Where" + row + "=" + "" + value + ""
        Dim Command As SqlCommand = New SqlCommand(SQLString, Connection)
        Dim Count As Integer = 0
        Try
            Connection.Open()
            Count = Command.ExecuteNonQuery()
        Catch ex As SqlException
            MsgBox(ex.ToString())
        Finally
            Connection.Close()
        End Try
        Return Count
    End Function
    Shared Function Search(ByVal ConnectionString As String, ByVal SQLString As String) As DataTable
        Dim Connection As SqlConnection = New SqlConnection(ConnectionString)
        Dim Command As SqlCommand = New SqlCommand(SQLString, Connection)

        Connection.Open()

        Dim Adapter As New SqlDataAdapter
        Adapter.TableMappings.Add("Table", "TEMP")
        Adapter.SelectCommand = Command

        Dim ObjectdsDataSet As New DataSet()
        Adapter.Fill(ObjectdsDataSet)

        Connection.Close()
        Return ObjectdsDataSet.Tables("TEMP")

    End Function
End Class
然后添加一个表,加个按钮,加个DataGridView控件
添加一个新数据源，选择microsoft SQL server 数据库文件
随便创建一个表，里面有aaa，bbb，ccc这几个列
把数据库连接好，打开解决方案资源管理器中的My Project，打开设置，找到“值”那列的自动生成的连接字符串
粘贴到“按钮”的连接字符串中。
我的如下：
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim connAddStr As String
        connAddStr = "Data Source=.\SQLEXPRESS;AttachDbFilename=|DataDirectory|\练习.mdf;Integrated Security=True;Connect Timeout=30;User Instance=True"
        Dim SQLString = "INSERT INTO table1(aaa,bbb,ccc) VALUES('a1','b1','c1')"
        Dim count As Integer = EditDataBase.Insert(connAddStr, SQLString)
        SQLString = "insert into table1(aaa,bbb,ccc) values('a2','b2','c2')"
        count = count + EditDataBase.Insert(connAddStr, SQLString)
        Call EditDataBase.Insert(connAddStr, SQLString)

        If (count > 0) Then
            MsgBox("")
        End If
    End Sub

我就是这么做的，添加不了呀！

我已經告訴你問題所在，我的程序也能正常執行，其他的....
我不可能幫你去建立一個數據庫！然后幫你去調式代碼，我公司也不會允許我去建立數據庫！

我试了试创建SQL账户,显示错误:
"该用户与可信SQL server连接无关联",创建不了.
另外,找不到你说的企业资源管理器,菜单和工具栏都没有这一项,SQL sever manager里也没有。
我再查查看.

不仅能找到数据库，而且在服务器资源管理器--〉数据连接--〉表--〉table1用右键--〉显示数据表
都可以向数据库中添加数据，这个操作是确实添加到数据库中了，运行后能看得到。但是运行程序时就是添加不了。
另外，我用你贴的代码重新建了个工程，如果数据库用SQL帐号，创建的时候就显示
"该用户与可信SQL server连接无关联"，根本创建不了。
如果用windows账户，可以创建，但运行时报错
“System.Data.SqlClient.SQLException:对象名‘test’无效”
用F8逐语句编译，发现
    Try
            Count = command.ExecuteNonQuery()
            ()
        Catch ex As Exception
            MsgBox(ex.ToString())
        Finally
            connection.Close()
        End Try
Try没有执行到，直接进入Catch ex As Exception 行，然后报错。

再有，企业资源管理器我的VS界面没有，SqlDataAdapter也没找到。

test是表名，你的數據庫沒這個表

呵呵,重装系统中,刚把VISTA恢复,正在装杀毒软件,一会儿装office2007和visual studio2005.
不过我估计把表名改成test也不行,SQL sever注册不了,没法设定用户名和密码.估计是系统设定有问题.
另外access2007数据库用不了,没有12.0版本的ADO.从网上下了个升级包,运行后没反应,VS2005里也找不到12.0的只能找到4.0的,结果就是access2007的数据库不认.不知道怎么用.
我刚学,麻烦多着呢!呵呵,不过不怕,总会学会的.
还有你们的vs2005安装盘多大的?我的2个多G,不会是不完整的吧,要是这样我就白忙了.还得去下3个多G的那个,又要小一星期.
我原来编过程,DOS下的Basic;C++等等,好多年不用了,不过技巧\算法什么的对我来说问题不大.
现在接触面向对象的,还要适应一段时间.主要是软件的设定,麻烦死了,现在软件太大太复杂.
还有兼容性,我的VISTA开始连VS都装不上,研究了很长时间才知道如何装,不知道这个问题和VISTA的兼容性有没有关.
对我来说真把设定\连接什么的搞定,到编程就轻松了.
不过我感觉我的这个问题初学者很多人都回遇到,也许不那么简单就能搞定的,我基本已经排除了代码错误的因素,因为用书上的源代码问题也是一样.
连接字符串我网上查了,我直接从config里粘出来应该可以,剩下就是设置问题了.
企业资源管理器我根本找不到,还有网上说的类似问题的一些工具什么的我也没有,所以怀疑系统不全.但愿我错了,最好只是个小问题.
希望到2008年前能解决这个问题.
谢谢帮忙!

应该就是这里的问题了,登sql用户名要用sa,在sql数据库里还要设置点东东哦.

vs自帶的沒用，必須安裝SQL server

skwenl说的“登sql用户名要用sa,在sql数据库里还要设置点东东"
這句話是錯的，默認的用戶是sa，但是可以添加數據庫用戶，不一定要是sa，你根據安裝提示裝sql數據庫，很簡單的，注意最好不要用操作系統帳號做數據庫的用戶！