如何转换数据类型？？？

Question

VB中用CINT进行数据转换、在数据库中插入数据都肯定没问题啊将你的语句完整贴出来，应该是别的地方错了。

Answer 1

当我把下面这四行屏蔽之后，程序执行就没问题了！
其中myupload是我做的一个图文混合上传的组件
        rs("zmk_id") = zmk_id
        rs("mk_id") = mk_id
        rs("hv_opus") = hv_opus
        rs("istea") = istea
－－－－－－－－－
    Dim img1, img2, img3, img4, bd_photo
    Dim myupload As New MyUpload.UploadFile
    Set myupload = New MyUpload.UploadFile
    myupload.MaxSize = 2097152
    
    'Dim zmk_id, mk_id, istea, hv_opus
    Dim title, body, bd_sex, img1_comment, img2_comment, img3_comment, img4_comment
    Dim link, bd_name, bd_time, posito, bd_comment, bd_opus, ops_comment, ops_link
        zmk_id = myupload.GetFileText("zmk_id")
        title = myupload.GetFileText("title")
        body = myupload.GetFileText("body")
        bd_sex = myupload.GetFileText("bd_sex")
        img1_comment = myupload.GetFileText("img1_comment")
        img2_comment = myupload.GetFileText("img2_comment")
        img3_comment = myupload.GetFileText("img3_comment")
        img4_comment = myupload.GetFileText("img4_comment")
        link = myupload.GetFileText("link")
        bd_name = myupload.GetFileText("bd_name")
        bd_time = myupload.GetFileText("bd_time")
        posito = myupload.GetFileText("posito")
        bd_comment = myupload.GetFileText("bd_comment")
        bd_opus = myupload.GetFileText("bd_opus")
        ops_comment = myupload.GetFileText("ops_comment")
        ops_link = myupload.GetFileText("ops_link")
        mk_id = myupload.GetFileText("mk_id")
        hv_opus = myupload.GetFileText("hv_opus")
        istea = myupload.GetFileText("istea")
        
        img1 = myupload.GetFileData("img1")
        img2 = myupload.GetFileData("img2")
        img3 = myupload.GetFileData("img3")
        img4 = myupload.GetFileData("img4")
        bd_photo = myupload.GetFileData("bd_photo")
            Response.Write "正在上传数据... .... ......<br>"
    Dim sql
    Set rs = New ADODB.Recordset
        sql = "select * from body_mk"
    rs.Open sql, Conn, 1, 3
    rs.AddNew
        rs("zmk_id") = zmk_id
        rs("title") = title
        rs("body") = InDataBase(body)
        rs("bd_sex") = bd_sex
        rs("img1_comment") = InDataBase(img1_comment)
        rs("img2_comment") = InDataBase(img2_comment)
        rs("img3_comment") = InDataBase(img3_comment)
        rs("img4_comment") = InDataBase(img4_comment)
        rs("link") = link
        rs("bd_name") = bd_name
        rs("bd_time") = bd_time
        rs("posito") = posito
        rs("bd_comment") = InDataBase(bd_comment)
        rs("bd_opus") = bd_opus
        rs("ops_comment") = InDataBase(ops_comment)
        rs("ops_link") = ops_link
        rs("mk_id") = mk_id
        rs("hv_opus") = hv_opus
        rs("istea") = istea
        
        If LenB(img1) > 10 Then rs("img1").AppendChunk img1
        If LenB(img2) > 10 Then rs("img2").AppendChunk img2
        If LenB(img3) > 10 Then rs("img3").AppendChunk img3
        If LenB(img4) > 10 Then rs("img4").AppendChunk img4
        If LenB(bd_photo) > 10 Then rs("bd_photo").AppendChunk bd_photo
    rs.Update

Answer 2

补充以下：
zmk_id，mk_id是bigint数据类型
hv_opus，istea是bit数据类型
这两种类型在vb中怎么转过来啊！！！
（早知道都用int类型了，因为程序已经写了很多了，要再改，就怕出更多问题了）
        rs("zmk_id") = zmk_id
        rs("mk_id") = mk_id
        rs("hv_opus") = hv_opus
        rs("istea") = istea

Answer 3

rs("zmk_id") = cint(zmk_id)这样不可以吗？

Answer 4

就是不行啊，vb的msdn提供的所有转换函数我都用过了不行！！！

Answer 5

hv_opus，istea是bit数据类型
这两个的值是不是太大了？

Answer 6

bigint是2^63，而bit只占用一个字节。