问题描述
VB转VB.NET问题我以前学过vb6.0，学的还不错，自己做了一套程序，那是XP年代，现在前后是WIN7,WIN8了，之前做的程序越来越不能兼容了，可数据库不能丢，所以开始学vb.net了。现遇到了个小麻烦请各位高手帮忙转换2010第一个：PrivateSubCommand1_Click()CommonDialog1.filename=Text1.TextCommonDialog1.Filter="图象文件[*.jpg:*.BMP]|*.jpg;*.BMP"CommonDialog1.DialogTitle="请选择图象文件名"CommonDialog1.ShowOpenIfErr<>vbCancelThenDimfilenameAsStringText1.SetFocusfilename=CommonDialog1.filenameText1.Text=filenameImage1.Picture=LoadPicture(Text1.Text)CommonDialog1.filename=""ElseEndIfEndSub第二个：查询PrivateSubText4_Change()datPrimaryRS2.RecordSource="select*frombiaowhere(biao."&Combo1.Text&"like+'"+Text4.Text+"'+'%')"datPrimaryRS2.RefreshEndSub
解决方案
解决方案二：
datPrimaryRS2是个什么东西？
解决方案三：
1:Picture.Image=Image.FromFile(CommonDialog1.FileName)CommonDialog1是OpenFileDialog控件2：VB.net没有data控件了现在要用ADO.net网上很多资料
解决方案四：
DimfilenameAsStringDimlgAsOpenFileDialog=NewOpenFileDialoglg.FileName=TextBox1.Textlg.Filter="图象文件[*.jpg:*.BMP]|*.jpg;*.BMP"Iflg.ShowDialog=Windows.Forms.DialogResult.OKThenTextBox1.Focus()filename=lg.FileNameTextBox1.Text=filenamePictureBox1.Image=Image.FromFile(filename)EndIf
解决方案五：
首先感谢您的帮助。1、运行时到这行出现问题TextBox1.Text=filename，是说：类型“sitring”的值无法转换为“system.windows.forms.txtbox”2、这个查询应该怎么改？PrivateSubText4_Change()datPrimaryRS2.RecordSource="select*frombiaowhere(biao."&Combo1.Text&"like+'"+Text4.Text+"'+'%')"datPrimaryRS2.RefreshEndSub
解决方案六：
楼主位什么要用text转换呢Picture.Image=Image.FromFile(CommonDialog1.FileName)直接就搞定了
解决方案七：
不知道楼主为什么非要个textbox
解决方案八：
引用4楼smy727的回复:
首先感谢您的帮助。1、运行时到这行出现问题TextBox1.Text=filename，是说：类型“sitring”的值无法转换为“system.windows.forms.txtbox”2、这个查询应该怎么改？PrivateSubText4_Change()datPrimaryRS2.RecordSource="select*frombiaowhere(……
该不用需要告诉你，窗体要放个textbox1控件吧？
解决方案九：
textbox绑定在数据库，数据库不存图片而是存路径。
解决方案十：
text已经不能直接绑定数据库了需要先声明ADO.net然后才能绑定text