紧张求助：往数据库中添加某条数据并返回这条数据的ID值的函数怎么写？aSP.net+VB.net+ACCESS

Question

紧张求助：往数据库中添加某条数据并返回这条数据的ID值的函数怎么写？aSP.net+VB.net+ACCESS

Answer 1

C#
string sql = "insert into Biao values('name','age'); select @@identity as c;";
SqlCommand cmd = new SqlCommand(sql,Cnn);
SqlDataReader dr;
try
{
    Cnn.Open();
    dr = cmd.ExecuteReader();
if(dr.Read())
{
int c = int.Parse(dr.GetValue(0).ToString());
dr.Close();}
}
catch(Exeption ex)
{}

Answer 2

对对，就是这个——select @@identity

Answer 3

public static bool add(contentItem content,out int articleid)
{
   //添加操作
   //取出ID
   articleid = 取出的id
}

Answer 4

'################################################################################################
    '函数名：AddTempArtcle
    '函数功能：生成临时文章记录
    '入口参数：
    '返回值：
    '################################################################################################
    Public Function AddTempArtcle() As Boolean
        ' 'On Error GoTo err
        AddTempArtcle = False
        Dim MyIdentityValue As Integer
        Dim MyConnection As New OleDbConnection(ShareFunction.GetDBConnectionString())
        MyConnection.Open()
        Dim SQL As String
        SQL = " Insert Into AI_Content(Title,Author,ImageAuthor,FontColorID,ModelID,BarID,CorrelateWord,HtmlUrl,Content,UploadManager) values('" + _Title + "','" + _Author + "','" + _ImageAuthor + "','" + _FontColorID + "','" + _ModelID + "','" + _BarID + "','" + _CorrelateWord + "','" + _HtmlUrl + "','" + _Content + "','" + _UploadManager + "')"
        Dim MyOleDbCommand As New OleDbCommand
        MyOleDbCommand.Connection = MyConnection
        MyOleDbCommand.CommandText = SQL
        If MyOleDbCommand.ExecuteNonQuery() > 0 = True Then
            Dim MyOleDbCommand1 As New OleDb.OleDbCommand("Select@@Identity", MyConnection)
            Try
                MyIdentityValue = MyOleDbCommand1.ExecuteScalar
            Catch ex As Exception
                MyIdentityValue = 0
            End Try
        End If
        MyConnection.Close()
        MyConnection = Nothing
        MyOleDbCommand = Nothing
        AddTempArtcle = True
        Exit Function
err:
        AddTempArtcle = False
    End Function
看看我这样写错误在哪里？？？麻烦了！！还有我的数据库类型是ACCESS啊！！不是SQL server2000
看看这样写错在哪里····还有我用VB.net写的

Answer 5

Dim id_no As Integer
 
Dim conn As New OleDbConnection("provider=microsoft.jet.oledb.4.0;Data Source=data\ktv.mdb")
            Dim mysqlstring As String = "insert into jie_zhang (f_id,c_type,mny,str_date) values ('" & Label4.Text & "','" & Label5.Text & "','" & Label8.Text & "','" & TextBox6.Text & "')"
            Dim mycommand As New OleDb.OleDbCommand(mysqlstring, conn)
            conn.Open()
            mycommand.Connection = conn
            If mycommand.ExecuteNonQuery > 0 = True Then
                Dim rowid As New OleDbCommand("select @@identity", conn)
                Try
                    id_no = rowid.ExecuteScalar
                Catch ex As Exception
                    id_no = 0
                End Try
                Label23.Text = id_no
                '结帐时需要标签文本作为更新数据的条件，不可少
                '在数据库中加入一条记录
                '并得到新加记录的ID号
                '用于停止夜以记费时根据此ID号更新记录
            End If
            conn.Close()
完全管用