| 发表于:2007-09-20 11:40:265楼 得分:0 |
dim connstring2 as string = "provider=microsoft.jet.oledb.4.0; data source=d:\vimage.mdb " dim cn as new oledb.oledbconnection(connstring2) cn.open() dim cmd as new oledb.oledbcommand cmd.connection = cn cmd.commandtype = commandtype.text cmd.commandtext = "insert into bom([stytype],[styseq],[description],[fcdate],[lmdate],[memo],[browse]) values (@stytype,@styseq,@description,@fcdate,@lmdate,@memo,@browse) " 'form3.label1.text = s cmd.parameters.add( "@stytype ", oledb.oledbtype.varchar).value = "123 " cmd.parameters.add( "@styseq ", oledb.oledbtype.varchar).value = "123 " cmd.parameters.add( "@description ", oledb.oledbtype.varchar).value = "123 " cmd.parameters.add( "@fcdate ", oledb.oledbtype.date).value = "123 " cmd.parameters.add( "@lmdate ", oledb.oledbtype.date).value = "123 " cmd.parameters.add( "@memo ", oledb.oledbtype.varchar).value = "123 " cmd.parameters.add( "@browse ", oledb.oledbtype.varbinary).value = "123 " cmd.EXECutenonquery() cn.close() | | |
|