在你的命令按钮添加声明
cm.Parameters .Add ("@post_id",SqlDbType.Char);
然后把文本的值赋给参数值

cm.Parameters ["@post_id"].Value =TextBox1.Text.Trim();

前端声明：
Public mOraConnect As OracleInProcServer.OraSession
    Public mOraSession As OracleInProcServer.OraDatabase
    Dim SAVE As String
Dim oDys As OracleInProcServer.OraDynaset
控制台：
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
mOraConnect = CreateObject("OracleInProcServer.XOraSession")
        mOraSession = mOraConnect.DbOpenDatabase("datasource", "user" + "/" + "password", 1)
        mOraConnect.DbBeginTrans()
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
SAVE = ""
        SAVE = SAVE & " INSERT INTO 表名(字段名)"
        SAVE = SAVE & " VALUES( '"& TextBox1.Text & "')"
                System.Diagnostics.Debug.Write(SAVE)
        mOraSession.ExecuteSQL(SAVE)
        mOraSession.CommitTrans()

imports system.data
imports system.data.sqlclient

Public constr As String = "provider=microsoft.jet.oledb.4.0;data source=e:\VB.NETziliao\publicdatabase\db1.mdb"
    Public mycon As New OleDb.OleDbConnection(constr)

dim str1，str2 as string
str1="insert into 表名 （“字段名“
str2="values('"& textbox1.text &"'
str1 &= (")  " & str2 & ") ")
Dim com As New OleDbCommand(str1, mycon)
                mycon.Open()
                com.ExecuteNonQuery()
                mycon.Close()

好文章值得看一下！

好文章值得看一下！